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PREFACE 



Scope and Objectives 

This publication describes the internal logic and method of operation of 
the Special Real Time Operating System. The purpose of the publication is 
to provide information to systems analysts, programmers, system engineers, 
and maintenance personnel to facilitate making modifications, diagnosing 
error situations, and performing maintenance work. 

All of the general functions and services provided by the Special Real 
Time Operating System are described in the DOM, as well as the details and 
requirements for installing, operating, and customizing this PRPQ. However, 
very little emphasis is given to individual programs that comprise these 
services or to the overall organization of these programs. The SLM contains 
the detailed material pertaining to the design and coding of the Special 
Real Time Operating System. While the DOM concentrates on the services and 
how to use them, the SLM concentrates on the load modules and how they per- 
form their functions. The SLM is not intended to replace or duplicate any 
information found in the DOM; it supplements the DOM with information for 
diagnosing error situations, or making modifications. 

This publication contains three sections: 

1, Section 1. Introduction 

o summarizes general information about the Special Real Time 
Operating System 

o describes the relationship between the functional operations- 
oriented information contained in the Special Real Time 
Operating System Description and Operations Manual (SH20-1773) 
and the detailed program-oriented information contained in this 
manual 

o describes the relationships between the various sections and 
appendixes of this manual 

2. Section 2. Logic description 

o summarizes the organization of the various functional areas 
that compose the Special Real Time Operating System 

o defines the format of the diagram and the symbols used to 
describe the individual programs that comprise the various 
functional areas 

o provides a visual description of the major logical processes 
for the individual programs through use of Hierarchy Input 
Process Output (HIPO) diagrams 
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3. Section 3. Program Organization 

o provides a detailed listing of the organization of the indivi- 
dual programs and defines the major processes of those programs 
through the use of Program Design Language (PDL) 

This publication contains four appendixes: 

1. Appendix A. Directory 

o contains cross-references of the Special Real Time Operating 
System CSECT names to the source members that comprise that 
CSECT 

o contains cross-references from CSECT name to the appropriate 

HIPO and PDL information 
o contains cross-references from Special Real Time Operating 

System macro names to CSECT name 
o contains cross-references from CSECT name to the functional area 

2. Appendix B. Storage Allocation 

o contains information concerning the amount of storage required 
to execute the Special Real Time Operating System 

3. Appendix C. Data Areas 

o contains charts describing the relationships between various 

Special Real Time Operating System control blocks and data areas 

o contains detailed description of each Special Real Time Operating 
System control block used by multiple modules 

4. Appendix D. Internal Macros - Contains Macros used internal to the 
Special Real Time OPerating System 

The page numbering structure of this manual is designed so that the first digit 
is the section and the remaining digits are the page numbers. For example, 2-34 
means you are in Section 2 on page 34. 

The references within the logic diagrams are references to other figure numbers 
not page numbers. 

The reader must have a general knowledge of the concepts of Program Design 
Language and must understand the concepts and techniques involved in using HIPO 
function. Section 1 Introduction, can help in using this manual effectively. 

In addition, the reader must have a thorough understanding of the concepts and a 
knowledge of the terminology used in 0S/VS1. 
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PREREQUISITE PUBLICATIONS 

The reader should be familiar with the concepts presented in the following 
publications: 

Special Real Time Operating System Description and Operations 
Manual rSH19-0080) ' 

IBM System/370 Principles of Operation (GA22-7000) 

0S/VS1 Planning and Use Guide (GC24-5090) 

IBM System/ 370 System Summary (GA25-7001) 

RELATED PUBLICATIONS 

0S/VS1 Debugging Guide (GC24-5093) 

0S/VS1 Supervisor Logic (SY24-5155) 
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Section 1. INTRODUCTION 



The Special Real Time Operating System PRPQ is a group of programs that aug- 
ments the services of 0S/VS1 to support realtime applications. Additional 
services provide for lower supervisor overhead; new capabilities; and in- 
creased flexibility in the areas of task management, time management, data 
base, message handling, duplicate data set support, data recordings and 
playback, failover /restart, and other supplementary services. 

The services provided by 0S/VS1 are still available to a program or system 
of programs utilizing the Special Real Time Operating System. However, in 
some cases, the Special Real Time Operating System may act as an interface 
between 0S/VS1 and user programs. 

The Special Real Time Operating System is designed to enhance areas that are 
critical to a realtime operation and to provide a stable operating environ- 
ment which will minimize the impact of an abnormally terminating program. 

SYSTEM ENVIRONMENT 

The Special Real Time Operating System executes as an application program 
under the contrq^l of 0S/VS1. There are two distinct modes of operation, 
either an online job step which executes in conjunction with user programs 
and /or other program products in a realtime environment, or an offline job 
step which creates and/or modifies tables, data sets, etc., that are essen- 
tial for the proper execution of the online job step. 

The online job step includes supervisor call instruction (SVC) and contains 
non-SVC routines which may attain supervisor state and/or supervisor protect 
key while executing as application load modules. Any other program products 
and user programs are executed as subtasks to the online job step task. In 
this environment, all the Special Real Time Operating System services 
described in the Description and Operations Manual (DOM) are available to 
the user programs, Special Real Time Operating System routines, and/or other 
program products. 

The offline job step (e.g., offline utility) executes as a separate indepen- 
dent job step from the online (or realtime) job step and, in this environ- 
ment, the Special Real Time Operating System services, as such, are not 
available. 
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SPECIAL REAL TIME OPERATING SYSTEM OVERVIEW 

The Special Real Time Operating System is separated into two modes of oper- 
ation: online excution and offline execution. Each mode of operation is 
composed of one or more functional areas as shown in Figure 2-4. 

Note: When referring to an overview chart, the numbers following the de- 
scription (usually found in the lower right corner of the boxes) , refer to 
either the figure number of another overview chart or the figure number of 
the detailed HIPO diagram that describes the routine that is given control. 

Each of the functional areas that comprises the Special Real Time Operating 
System is represented in this section by a brief narrative of that function, 
an overview chart, where applicable, followed by detailed HIPO charts of 
the modules involved. 



ONLINE EXECUTION 

Online execution of the Special Real Time Operating System is initiated 
through standard 0S/VS1 Job Control Language (JCL) statements with the 
EXEC card specifying PGM=DPPINIT. The JCL defines to the Special Real Time 
Operating System the data sets which have been created by the offline utility 
and the Special Real Time Operating System SYSGEN procedures (described in 
the Description and Operations Manual). 

The JCL also defines the devices which are to be used by the online routines. 
The module DPPINIT is responsible for initializing most of the functional 
areas for online execution. 

Once the basic Initialization has been completed, the Special Real Time 
Operating System performs meaningful processing only when its services are 
requested, either by user programs executing user macro calls in a realtime 
environment or by user interfaces such as Input Message Processing 
commands and/or PATCH statements in the SYSINIT Input stream. Figure 2-5 
shows the relationships between the user macros and the functional areas. 
The number following the macro name is the figure number of the HIPO dia- 
gram that describes the module that receives control in response to a 
particular macro call. 

Figure 2-6 shows the input message processing operator commands that are 
recognized by the Special Real Time Operating System. It also shows the 
entry point names that can be specified on a PATCH statement in the SYSINIT 
input stream that result in processing by the Special Real Time Operating 
System. 
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During normal execution, or as a result of a user request, the Special 
Real Time Operating System may execute one or more internal macro calls, as 
well as the user macro calls. Use of these internal macro calls is re- 
stricted by the Special Real Time Operating System because they may be used 
to obtain supervisor state, page fixing, etc. which, without strict con- 
trols, could jeopardize the performance or the integrity of the operating 
system. Figure 2-7 shows the internal macros used by the Special Real time 
Operating System. Appendix D contains a list of these macros and their 
calling sequences. 



OFFLINE EXECUTION 

The offline functions of the Special Real Time Operating System are executed 
through the use of standard 0S/VS1 Job Control Language (JCL) . These func- 
tions are the offline utility, data base BDAM data set compress, playback 
of recorded data, and stage I of the system generation procedure. 
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HOW TO READ HIPO DIAGRAMS 



The HIPO diagrams illustrate the functions performed by the Special Real 
Time Operating System. Each major functional area has a set of diagrams. 
The first figure in each set is a visual table of contents for that func- 
tional area. 



The HIPO diagrams are read left to right, top to bottom, and illustrate the 
input, the processing steps, and the output for each function performed. 
The input to the function appears on the left and the output of the function 
appears on the right. The processing is divided into a series of steps. 
If further explanation of a processing step is needed, that step is num- 
bered and the explanation appears in the Extended Description for that 
diagram. The Extended Description also contains segment names, so that the 
reader can refer to the proper PDL segment or pertinent code in the pro- 
gram listing. 

Arrows are used to signify data movement, data reference, and processing 
flow. The arrow conventions are shown in Figure 2-1. Other conventions 
used in the HIPO diagrams are illustrated in Figures 2-2 and 2-3. 




Primary Flow of Control 



Secondary Flow of Control 



Data Movement 



Data Pointer 



Data Reference 



Figure 2-1. HIPO Arrow Conventions 
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Figure 2-3 - Sample Extended Description 
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Figure 2-5 - Special Real Time Operating System Macro Calls 
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Figure 2-6 - User Interface 
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Figure 2-7 - Special Real Time Operating System Internal Macro Calls 
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Initialization 

The Special Real Time Operating System's initialization module, DPPINIT, 
is assembled during the SYSGEN procedure and contains the SYSGENed values 
as data constants. This module receives control from the 0S/VS1 initiator 
whenever an EXEC statement specifying PGM=DPPINIT is executed. 



The module DPPINIT references the SYSGENed values (data constants) and 
the SYSINIT input stream and initializes the realtime job step accordingly. 
Once the basic initialization has been completed by DPPINIT, control is 
transferred (XCTL) to the Special Real Time Operating System's system 
monitor routine, DPPTSMON, and the realtime job step is ready for process- 
ing to begin. Figure 2-8 provides an overview of the modules executed 
during the initialization process. 
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The core required for the XCVT and SCVT is calculated by (XCVTLNTH 
+ IDLNTH + SCVTLNTH + IDLNTH) . The ID is an 8-byte control block 
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the MASTER'S low and high partition boundaries, and the MASTER ' s 
SCVT and XCVT addresses, the two partition bit is set on in each 
XCVT, and the resync bit is set on in the MASTER'S XCVT and 
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1 A MAIHBLOK is built in subpool 0. 

2 A read loop is established to read control statements. The only exit 
from the read loop is end-of-file (EODAD) on SYSINIT. The label is 
moved to the work area. If column 1 is nonblank and if the data in 
column 1 is an asterisk (*) , the statement is a comment statement, it 
is written to the INITLIST data set and the next card is read. If it 
is not a comment statement, the operation is moved to the work area, 
then the operands are moved to the work area. All comments and blanks 
used as delimeters are removed, and only meaningful information is 
moved to the work area. Blanks within the PARAM field are kept. A 
flag is set to indicate continuation if column 72 is nonblank or the 
last data column contained a comma. If column 72 was nonblank and the 
last data column was not a comma, a flag is set to indicate that no 
more operands are expected. If an error is found in control statement, 
issue an error message. 

3 The input control statement is written to the SYSLIST data set. 

4 Continuation cards are read until there are no more continuations 
expected. If the maximum number of operands is not exceeded, the 
operands are moved to the work area. 

The control statement operation type is identified. (See Figure 2-11 
(3 of 12) for detail.) 

6 At end-of-file, control is passed to program label BLDWTLST. 

7 See Figure 2-11 (11 of 12) for description of Build Wait List routine 
(BLDWTLST) . 

If any errors were detected during control statement processing, the 
job step is ABENDed with a code 34; otherwise, control is returned 
to DPPINIT. 
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If DBREF NO request, turn off the refresh flag (MAINRIMT) in the 
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Create and chain an INITCB. Turn on the INITPTCH flag to identify 
this as a PATCH control block and move control statement label to 
INITLABL. 

If no EP=keyword previously processed for this PATCH statement, turn 
on the PTCHEP flag and move the EP name to the SUPL. The SUPL is 
part of the INITCB. 

If no TASK=keyword previously processed for this statement, turn on 
the PTCHTASK flag and move the TASK name to the SUPL. 

If no QL^keyword previously processed for this statement, turn on the 
PTCHQL flag. Validity check the QL data, convert it, and put the con- 
verted value in the SUPL. 

If no LTNkeyword previously processed, turn on the PTCHID flag. 
Validity check the ID value, convert the value, and save it to 
be moved later to the PROBL. 

If no PRTY=keyboard previously processed, the PTCHPRTY flag is turned 
on. If the first character of the operand is a left parenthesis, the 
operand is of the format (job name, prty) . The job name is moved to 
the SUPL and the priorty value is validity checked, converted, and 
moved to the SUPL. If the first character is not a left parenthesis, 
the operand is of the format JOBSTEP-n. The priority reference value 
is validity checked, converted, and moved to the SUPL. 

See Figure 2-11 (9 of 12) for processing description of PARAM. 

If no PROBL exists (no PARAM=keyword) , create a PROBL. Move the ID to 
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If no previous PARAM=keyword has been processed, turn on the 
PTCHPRAM flag. The first data character is checked. If it is a left 
parenthesis, the operand is scanned, and the quote characters are 
counted. If the quotes are balanced (even number), a PROBL is 
created. If no right parenthesis, then issue error message. 

If. data type is X, validity check the data, convert it, get storage 
for the data, and move the converted data to the storage area. The 
address of the converted data is then placed in the PROBL along with 
the data length. 

If the data is F, four bytes of main storage is obtained, and the data 
is checked to see if a sign was specified. The data is converted, 
and if a minus sign was specified, the data is complemented. The 
converted data is placed in the obtained storage, and the address and 
length are placed in the PROBL. 

If the data type is C, storage is obtained and the character data is 
moved to the storage. The address and length of the storage are 
placed in the PROBL. 
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If the MAINERR flag is on, a control statement error was detected and 
the job step is ABENDed with code 34, otherwise, the wait list(s) are 
built. 

A count is made of the number of PATCH blocks. If there are no PATCH 
blocks, the job step is ABENDed with a code 40. If a WRITE block 
exists, the PATCH blocks preceding the WRITE block are counted, and a 
wait list is created pointing to the INITECB field of each PATCH block. 
The wait list address is placed in the WRITE blocks INITECB field, and 
the count of entries in the wait list is placed in the INITWTCT field. 

All PATCH blocks following the WRITE block (or all PATCH blocks if no 
WRITE blocks exist) having the PARAM= (with greater than 8 bytes for a 
PROBL length) parameter are counted and a wait list entry is created 
for each. An INITCB is created and chained to the end of the INITCB 
chain, the INITWAIT and INITWLST flags are turned on. The new block 
is pointed to the wait list by the INITECB field, and the count of the 
number of entries in the wait list is put in the INITWTCT field. 

The address of the QH blocks reference by each QP block is stand into 
the QP block and the addr. of the QP block is stored into the QH block. 
If more than 21 connections to any QH block, or referenced QH name not 
found, output message and seter for flag. 

If any errors found in clan QP/QH cross reference check, abend code 34. 
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Register conventions, get the XCVT address. Issue message to indicate 
PATCH processing has begun. 
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Get the PROBL and SUPL addresses from INITCB and issue the PATCH. 
If PARAM= was coded, PATCH is issued with ECB option. Also if the 
PATCH precedes a RESTART statement, the PATCH is issued with ECB 
option; otherwise, no ECB option is specified. If PATCH return code 
is nonzero, ABEND the job step with a code 31. 


USER 31 
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The INITWLST flag is checked to see if the WAIT is on a list of ECBs. 
If it is, the INITWTCT is obtained, and a WAIT is issued on the list. 
If no wait list, the WAIT is issued on a single ECB with the ECB being 
the INITECB field of the PATCH INITCB. When the ECB is posted, the 
completion code is checked, and if no error occurred processing con- 
tinues. If an error (POST code nonzero) occurs, an error message is 
issued and the nonzero POST code is zerod. If the bad POST was for a 
PATCH prior to the RESTART, the task ABENDs with a code 35. 
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The program issues a STIMER WAIT for the specified time. When the 
time expires, the job step is ABENDed with a code 22. 
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If RESTART request 
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A Link to DPPIIRB (Data Base Create IRB Routine) 

B A WAIT is issued on all previous PATCHes. The failover 

restart data set is then written and then the restart flags 
are propagated to all PATCHes following the RESTART block. 
The flags are stored in the PROBL. If it is a SLAVE 
partition that has been restarted, the WRITE RESTART is 
bypassed and an error message is issued. 

C Link to DDS failover restart routine (DPPSRSTR) 

D Link to DPPIIRB 


DPP054I 




LICENSED MAT 
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If PROBE request 

A Create IRB for the time function 
B PATCH DOMIRPWT (PROBE Routine) 
C Link to DPPIIRB 
D Link to DPPSRSTR 
E Link to DPPIIRB 
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All ECBs are checked. Nonzero POST codes will cause an error 
message to be issued. 
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TY OF 
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All control block storage is FREEMAINed. 
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ABEND job step with a code 45. 
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Figure 2-13 (2 of 2). 
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The page free (unfix) routine, DPPIPFRE, is branched to unfix any 
pages fixed by the initialization routine. 

If external interrupts have been initialized at initialization time, 
the flags (XCVTSBOP) are reset. 

If this is a single partition run, control is returned to ABEND 
with register 15 cleared to indicate no retry. 

If this is a SLAVE partition in a two partition run, the MASTER 
partition's XCVT is found, and the two partition flag (XCVTF2PT) is 
turned off, and control returned to ABEND with register 15 zero to 
indicate no retry. 

If this is a MASTER partition in a two partition run, the SLAVE 
partition's job step task TCB is located, and the SLAVE job is 
ABENDed with a code 41. Control is then returned to ABEND with 
register 15 zero to indicate no retry. 
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Figure 2-14 (1 of 2) Special Real Time Operating System Task Management Overview 
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Task Management 



The Special Real Time Operating System's task management services are an 
extension of the 0S/VS1 tasks supervisor to make more efficient use of sys- 
tems resources in a real time processing system. These additional services 
are provided by the Special Real Time Operating System through the use of 
SVC routines, monitor routines, operator commands, and service subroutines 
as shown in Figure 2-14. 

The PATCH monitor routine and the system monitor routine, DPPTPMON and 
DPPTSMON respectively, receive control from the Special Real Time Operat- 
ing System initialization module, DPPINIT, and form the heart of task 
management. DPPTSMON executes under the job step task and performs the 
services required by the real time system as a whole (i.e., create new 
subtasks, LOAD reentrant modules, etc.). DPPTPMON executes under each 
subtask created by DPPTSMON and interfaces with the user routines as re- 
quired on a PATCH macro call. The relationship between the user program 
and the task management routines is shown in Figure 2-15. 

The task management routines provide most of the communication between 
partitions in a two-partition environment. This is done internally to 
each routine and does not affect the overall logic flow or the function of 
that routine. 
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Figure 2-16 (1 Of 4) - PATCH Monitor 
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The PATCH monitor is attached by DPPINIT during Special Real Time 
Operating System initialization or by the system monitor DPPTSMON 
thereafter. The address of the TCBX is put into the TCBUSER field 
via POST by the mother task. 




DPPTPMON 
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It is checked if a resource table address is present in the TCBX and 
if not, a resource table plus work area are obtained through GETMAIN 
and the address stored into TCBXRSTB. 




DPPTPMON 


3 


The STAE specifies DPPTSTAE as the exit routine. 




DPPTPMON 


4 


If DPPINIT posted TCBUSER, this is an initial TCB on the FREE chain 
(TMCTFREE), and the PATCH monitor waits here on TCBXECB for the first 
PATCH. 




DPPTPMON 
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If TCBX is a queue processor (QP), then segment DPTPM0N6 is used to 
select work from one of the queue holders associated with this QP. 




DPPTPMON 


6 


If any WQEs are on the cleanup work queue TCBXCUWQ they are dechained, 
DPPSCLUP is called and the WQE-DELETE routine is invoked through a 
branch entry to delete the WQE. Then the top WQE is dequeued from 
the TCBXWQ chain, it becomes the "current" WQE and its address is 
kept in TCBXCWQ. Each WQE is processed as long as WQEs are present 
on the queue and no DPATCH TYPE = U (unconditional) is received. 




DPPTPMON 
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If no DPATCH occurred, indicating that the queue is empty, the PATCH 
monitor waits here for a next PATCH or DPATCH. 




DPPTPMON 
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If no DPATCH flag is set (TCBXFLG2) and not HELD (TCBFLG3) , control 
goes back to step 5 for processing of the received PATCH. Otherwise, 
if a DPATCH was received, control goes to A. (Figure 2-16 (3 of 4)). 
If task is being HELD, the PATCH monitor WAITs until released before 
processing additional work queues. 
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Figure 2-16 (3 Of 4) - PATCH Monitor 
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If the DPATCH work queue TCBXDWQ is not empty, that WQE is dechained 
and its address is kept in TCBXCWQ. The WQE is processed like any 
other WQE. 

The TCBX will then be cleaned up. DPPSCLUP is called to clean up 
DDS. Remaining WQEs are deleted by using the WQDL routine. AT-Type 
GETWA areas are freed using the special entry to FREEWA. Remaining 
LCBs are deleted. If there is a corresponding LCB on the TMCT-LCB 
chain, that LCB's use-count is decremented. If it goes to zero, the 
flags LCBFDEL and TMCTLCBD are set to cause DPPTSMON to delete the 
program. If the program was not reentrant, it is deleted here. Then 
the TCBX is dechained from its active independent or dependent task 
chain, TMCTAIND or TMCTADEP , respectively. 

A check is made for the number of TCBXs on the TMCTFREE chain. If it 
is low, the TCBX is further cleaned up to look "initial" (TCBXNAME, 
TCBXPARM, TCBXFLGs), the task is CHAP'ed down to zero priority, and 
the TCBX is chained to the FREE chain. Control now goes back to 
step 4 of Figure 2-16 (1 of 4), where the PATCH monitor will wait 
for a new "first" PATCH. 

If the limit number of free TCBXs is already reached, the flag 
TCBX1TRM is set, and FREEMAIN of resource table plus work area is 
done. Then SVC EXIT is issued to terminate the task. 
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If the purge flag is set in the LCB pointed to by the current WQE, 
DPPTPMON waits for dynamic load module PURGE to complete. If the 
LCB is unresolved, a search is made to find the program on the 
TMCT-LCB chain. If found, the TCBX-LCB is pointed to the TMCT-LCB, 
the user count is incremented, and the EP address is copied. If not 
found on the chain, a BLDL is issued to locate the program. 

If the program is non-reentrant, it is LOADed and its EP address kept 
in the LCB. If it is a Queue Processor task build a duplicate LCB 
for this Q Proccessor Reentrant programs are task oriented and the CB 
for the QH is not. 

If the program is reentrant, flags LCBFLOAD and TCBXlLCB are set, and 
the TCBX is chained to the TMCTSMON chain, Then the system monitor is 
POSTed (TMCTSECB) and the PATCH monitor waits on TCBXLECB. 

The address of the PROBL is stored into TCBXPARM. If ID is not 255, 
the address of TCBXDCVT is loaded into register 1 and the user's 
program is given control via BALR 14, 15. 

The user's program will return here. If the program is nonreusable or 
if it is reusable and DEL was specified, it is DELETEd. 

If the purge flag is set and an ECB address was supplied by 
DPPTDLMP, the ECB is POSTed. If any AP-type GETWA area is chained 
to TCBXOFWD, FREEWA is executed (via the branch entry of FREEWA.) 
Then the WQDL routine is invoked via branch entry to delete the 
WQE. 
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This part of the Patch Monitor is entered only from the high level 
language interface programs (DPPPARM for PL/I or DPPFPRM for 
FORTRAN) . 

If the purge flag is set or if DEL was specified, return to caller 
with a nonzero return code. 

If TCBX is a queue processor (QP) then segment DPTPMQN6 is used to 
select work from one of the queue holders associated with this QP. 

A check is made if the next WQE requests the same program. If yes, 
the old WQE is cleaned up; AP-Type GETWA areas are freed and the old 
WQE deleted via branch entry to the WQDL Routine. Then the new WQE 
is scheduled, and the PROBL address loaded into TCBXPARM. If ID is 
not 255, the return code is set to zero and control returned to the 
caller. If ID is 255, no return is performed, but the routine 
continues to check the next WQE while WQEs are present on TCBXWQ and 
no DPATCH flag is set. 

If the next WQE requests a different program, the current control is 
passed back to the caller with a nonzero return code. 

If no WQE is on TCBXWQ, the user's ECB is posted to indicate that 
processing of this work queue is completed, the ECB address is 
cleared from the WQE, and the Patch Monitor waits on TCBXECB for a 
next PATCH or DPATCH. 

After TCBXECB is posted and if no DPATCH flag is set in TCBXFLG2, 
the routine continues processing with step 2. If a DPATCH occurred, 
the return code is set nonzero and control returns to the caller. 
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Figure 2-18.1 (1 Of 2) - QP/QH Interface 
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The address of each associated QH TCBX is contained in the TCBX for 
that QP. Since a QH is not associated to an QS task the clean-up 
work queue for the WHs are moved to the TCBX for the QP. 

The chain of QHs is searched looking for and available work queue (is 
a work queue on the work queue chain of a QH the QH is not HELD, and 
the QH is not sequential with another work queue currently being 
processed by another QP) . 

The chain of QPs associated with the QH that the work queue was 
selected from is searched looking for a available QP (Le. a dormant 
QP that is not HELD and has not been previously posted) . 
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Figure 2-19 (1 Of 2) - End Of Task Exit Routine 
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Figure 2-20 (1 Of 4) - System Monitor 
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The System Monitor is entered via XCTL from the Special Real Time 
Operating System initialization and executes under the job step task 
TCB in a never ending loop as long as the real time system is running. 

The first TGBX is dechained from the TMCTSMON chain, the system 
monitors request chain, and the flag byte TCBXFLG1 is inspected for 
the kind of service requested. 

If flag TCBX1LCB is set, the TMCT-LCB chain is searched for a program 
with the same name. If found, the TCBX-LCB is pointed to the 
TMCT-LCB, the EP address is copied, and the use count is updated. 
If not found, a new LCB is built from CB-GET storage and chained, the 
program is loaded, and the EP address stored in both LCBS. However, 
if CB-GET storage for a new LCB is not available, the program is 
treated nonreentrant , loaded and its EP address stored in the 
TCBX-LCB only. Then the waiting PATCH monitor is posted (TCBXLECB) . 

If flag TCBXlTCB is set, a new patch monitor is attached with the 
specified priority, the TCB address is stored into the TCBX, and the 
TCBUSER field of the TCB is posted with the TCBX address. 

If flag TCBX1CHP is set, the requesting task is CHAPed to the proper 
priority, and the waiting patch monitor is posted (TCBXECB) . 

While more TCBXs are chained to TMCTSMON, the system monitor continues 
to service these requests (step 1 above). 
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If flag TMCTLCBD is set, the TMCT-LCB chain is searched for LCBs 
that are requesting a DELETE service (LCBFDEL) . The LCBs are de- 
chained, the programs deleted and the LCBs are freed. If any LCB had 
the purge flag set, DPPTDLMP is posted. 
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7 


After the system monitor has serviced all requests, he waits on 
TMCTSECB, and a POST for further service will pass control back to 
step 1. 
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Figure 2-21 (2 of 4). 
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Extended Description 



The Problem Parameter List (PROBL) and Supervisor Parameter List 
(SUPL) addresses passed to PATCH are checked, both must be nonzero, 
ECB, TCBX, and FREE addresses may be specified; if so, the specified 
address (es) are also checked. The addresses must be within the 
partition in a single partition environment or within either the 
MASTER or SLAVE partition in a two- partition environment. 

If a task name was specified, the PATCH is for an independent task. 
The independent task chain (TMCTAIND) is searched for the name given./ 

If no task name was specified (the PATCH is for a dependent task) , or 
if a TCBX with the given name does not exist, a free TCBX is taken 
from the FREE chain (TMCTFREE) or if none is available, CB-GET 
storage is obtained and a new TCBX is built. Transfer GETWA area 
if required. 

A work queue element (WQE) is built from CB-GET storage. 

The TCBXLCB chain is searched for an LCB with the given EP name. 
If none is found, an LCB is built from CB-GET storage and chained 
to the TCBX. 
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Figure 2-21 (3 Of 4) - PATCH SVC Routine 
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Point the WQE to the LCB and chain the WQE to the TCBX as requested 
in the QPOS operand of PATCH. 

LAST - chain to the end of the TCBXWQ chain 
FIRST - chain at the top of the TCBXWQ chain. In this case, 
if the limit queue length is already reached, the 
bottom WQE is dechained and chained to the cleanup 
work queue TCBXCUWQ instead. . 
DPATCH - chain this WQE to TCBXDWQ (one WQE only can be chained 
to the DPATCH work queue) . QPQS -DPATCH is invaluable 
for queue holders and queue processors. 

If the TCBX was on the active chain (flag TCBX1CHP in TCBX is zero, 
for no CHAP is necessary in this case) , the Patch monitor DPPTPMON is 
posted (TCBXECB) . For PATCH is to queue holders the first inactive 
available queue processor for that queue holders is posted. 

Otherwise the TCBX is chained to the system monitor DPPTSMON's request 
chain (TMCTSMON - TCBXSMON) , and DPPTSMON is posted (TMCTSECB) . 

Also, the TCBX is chained to the top of the proper active chain in 
the TMCT. 

TMCTAIND - if task name specified 

TMCTADEP - if no task name given 

The DPATCH=W flag TCBX2DPW in the TCBX is set also in case it is a 
dependent task to stop processing in DPPTPMON upon completion of this 
work request. 

The return code is loaded into register 15^ and if it is less than or 
equal to 8, the TCBX address is loaded into register 1; otherwise, it 
is cleared. Then the routine returns to the caller. 
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Figure 2-22 (1 Of 2) - DPATCH SVC Routine 
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The contents of register 0 and 1 are checked. If register 1 is zero, 
the DPATCH is for the issuing task itself, in this case the TCBUSER 
field is checked. It must be within partition boundaries. If 
register 1 is nonzero, its content is the address of a storage field 
with the TCBXNAME that is to be DPATCHed. The address must be within 
partition boundaries. Register 0 must contain a valid TYPE code (0, 
4, 8 or 12 corresponding to Type U, C, W, A, or I). Note: All type 
DPATCH s to queue holders are invalid and only DPATCH type A or I is 
valid for queue processors. 

If register 1 is nonzero, the TMCTAIND active task chain is searched 
for a TCBX with the specified name. A return code is loaded into 
register 15 if it cannot be found. 

The DPATCH - Flag corresponding to the DPATCH TYPE is set in the 
TCBX. If the same or another flag was already set, a return code in 
register 15 will indicate this. 

If DPATCH TYPE = I (immediate) was specified, the 0S/VS1 ABTERM 
routine is invoked through a branch entry to ABTERM that task with 
a USER ABEND code of 65. 

Otherwise DPPTPMON is posted (TCBXECB) . 

The DPATCH SVC routine returns to the caller with a return code in 
register 15. 



DPTDSVC1 



DPTDSVC1 



USER 65 



DPPTDSVC 



DPPTDSVC 



6) 



DPPTRSVC 



Input 



From REPATCH 
Macro Call 



Register 0 



Register 1 



REPATCH Type Code 



REPL - ADDR 



SUPTASK 



SUPEP 



SUPPRTYN 



SUPFLAG 



SUPQL 



SUPPRTYV 



SUPECB 



SUPFREEL 



SUPFREEA 



SUPTCg X 



REPUPARM 



REPLPROB 



REPLAP 



Process 



Output 



Users 
Area 



m Validity Check 
1 — 1 Inputs 

If 

Invalid 




If TYPE = EXEC 
Invoke PATCH 
SVC RTN 



CALL 



Reg 1 User's 



REP LAD 



TMCT 



TMCTREPL 



x REPLAP / 
REPLCHN ' 



REPLAD 



REPLCHN 



REPLCHN 



If TYPE = PURGE 
Issue FREEMAIN 
To Process User's 
FREE =' Request 



DPPTPSVC 



PATCH 
Routine 2-21 



[4] Get REPL 



OECHAIN From 
TMCT - REPL 
CBFREE The 
REPL 



Free 

Virtual 

Storage 



Figure 2-23 (1 Of 2) - REPATCH SVC Routine 
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The contents of register 0 and 1 are checked. Register 0 must be 0 
or 1, and register 1 must be a valid address of a REPL. Addresses 
are checked against partition boundaries of the own partition and if 
outside and two-partition operation boundaries also. If invalid, a 
return code of 32 is loaded into register 15, and the routine returns 
to the caller. 

If register 0 is zero (TYPE=EXEC) , the input registers for the 
PATCH SVC routine are set up, and DPPTPSVC is invoked via branch 
entry. Any return code received upon return will be in turn passed 
to the caller of REPATCH. 

If register 0 is 1 (TYPE=PURGE) and a FREE= request was specified 
on the original PATCH, the FREEMAIN is issued. 

The address of the Special Real Time Operating System - supplied REPL 
is obtained and the REPL is dechained from the TMCT - REPL chain 
and freed. 

The REPATCH SVC routine returns to the caller with a return code in 
register 15. 
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The PWQE address is passed in register 1. The task name address 
(PWQETASK) , entry point name address (PWQEEP), ECB address (PWQEECB) , 
FREE address (PWQEADDR) , and the requested partition are validity 
checked to determine if the addresses are within the partition (or 
within either the MASTER or SLAVE partition in a two-partition 
environment) . 

The TMCT independent task chain (TMCTAIND) and dependent task chain 
(TMCTADEP) are scanned to locate the specified TCBX. 

The EP name and ID are used to identify which work queue elements are 
to be removed and placed in the cleanup work queue. The work element 
may be on the current work queue chain (TCBXCWQ), the DEPATCH work 
queue chain (TCBXDWQ) , or the active work queue chain (TCBXWQ) . 
For queue holders the associated queue processors must be scanned 
for active work queues. 

The free address and length specified on the PURGEWQ are moved into 
the work queue element (WQFREEAD and WQFREELN) to be FREEMAINed when 
the work queue is detected. 
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If the WQE was pushed out of the queue (another PATCH with QPOS=FIRST 
was issued and the queue was full) and REPATCH option was 
specified (SUPFRPTH), a repatch list is constructed from CB-GET 
storage, and the parameters necessary for REPATCH are copied from 
TCBX, WQE, and LCB into the REPL. 

Otherwise, if a FREE= request was specified at PATCH time, it is 
processed and a FREEMAIN SVC is issued to free the user's area. 

If an ECB address was specified, the ECB is posted with the REPL 
address if step 1 above was executed; otherwise the completion code 
is obtained from the WQE. 

The request count in the LCB is decremented. If DELETE was specified 
and the module is reentrant, the use count in the corresponding LCB 
on the TMCT - LCB chain is also decremented. If it goes to zero, 
flags LCBFDEL and TMCTLCBD are set and DPPTSMON is posted. If DELETE 
was specified and the request count in the LCB is zero, the LCB is 
dechained and freed. 

The WQE must be dechained already at entry to the WQDL routine and 
it is freed before the routine returns to the caller. 
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Extended Description 



Dynamic Load Module Purge is entered as a result of a DLMP operator 
command through the input message processing interface. 

A check is made if the specified time value exceeds the maximum 
allowed (20 minutes); and if yes, message DPP019 is issued. 

A LOCK is issued to serialize Load Module Purge requests and message 
DPP020 is issued. 

A STIMER macro is issued with the specified time or a default of 2 
seconds, if not specified. 

All TCBXs on both the independent and the dependent task chain are 
scanned for LCBs which reference the module names received in the 
purge request. If a match is found, the purge flag is set in the LCB, 
and if the LCB is referred to by the current WQE, an ECB is built and 
its address stored into the LCB. 

The TMCT-LCB chain is scanned for the module names received in the 
purge request. If a match is found, the purge flag is set in the LCB. 

The program waits on an ECB list for all current users of one of the 
modules to complete (DPPTPMON will POST the ECB) or for the STIMER 
issued in step 3 to expire. 



Messages and 
ABEND Codes 



DPP019I 



DPP020I 



PDL Segment 



DPPTDLMP 



DPPTDLMP 



DPPTDLMP 



DPTDLMP1 



DPPTDLMP 



DPPTDLMP 



O 
m 
Z 

C/5 

m 
D 



m 

JO 

> 



73 

o 

"D 

m 

73 
H 
< 

O 

00 



to 



DPPTDLMP 



Input 



From Figure 2-26 I A J 
(1 Of 4) 




TMCT 



TMCTAIND 



TMCT AD EP 



TCBXPECB 



TCBX TCBX 



TCBXPECB 



TCBX TCBX 



TCBXPECB 



TCBXPECB 



LOCKCBLK 



Process 



CD 

If STIMER Expired 
Else TTIMER 
CANCEL 



Cause The Modules 
In PURGE To Be 
Deleted By The 
Task Which Issued 
The LOAD 



m 



WAIT For All 
DELETE's To 
Complete 



m Scan All TCBX's 
1 And POST 
DPPTPMON If 
Waiting For 
DPPTDLMP 



Issue MESSAGE 
And UNLOCK 



Output 




Module(s) Deleted 
Storage FREEMAIN'ED 
EP Address Cleared 
From LCB And 
Unresolved 
FLAG SET 



LCB 



LCB FLAGS 



LCBEPAD 



ECBLIST 



ECB's 



A(ECB1) 


ECB1 















ECB's Waited On 



TCBX 



TCBXPECB 



o 
m 
Z 
c/> 
m 
Q 

2 
> 
H 
m 

> 
r 



30 

o 

m 

3D 
H 
< 

O 

Tl 

5 
2 



Figure 2-26 (3 Of 4) - Dynamic Load Module Purge 
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If the STIMER has expired issue an error message and give control 
to step 4 below; otherwise TTIMER CANCEL is issued. 

The modules to be purged must be deleted by the same task that issued 
the LOAD. The program scans all TCBX-LCBs for both the purge flag 
set and loaded by DPPTPMON. For each task with this condition an IRB 
and ECB are built and the asynchronous delete routine DPTDLMP5 issues 
the DELETE^ clears the purge flag, and posts the ECB. Also the 
TMCT-LCB chain is scanned, and modules with the purge flag set are 
also flagged for delete, and DPPTSMON is posted to process the 
DELETE. 

DPPTDLMP waits on an ECB list for all scheduled DELETE operations to 
complete. A message is issued to indicate successful execution. 

Both the independent and the dependent task chain are then scanned for 
any DPPTPMON waiting on TCBXPECB. If waiting, TCBXPECB is posted so 
that DPPTPMON will resume execution. 

Messages are issued and UNLOCK is done, then the program returns to 
the caller. 
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Figure 2-27 (1 of 2) STAE Command Processor - DPPTIMPS 
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The STAE command processor is entered as a result of a STAE operator 
command through the Input Message Processor (IMP) interface. 

1 The valid options are DUMP, NODUMP, ONEDUMP, STEP, or OPTION. 

2 The load module name must be alphameric or one of the special 
characters $, //, or @. The first character must not be numeric. 

The STAEBLKs are chained in collating sequence. 
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Figure 2-28 (1 Of 2) - STAE Exit Routine For Subtasks 
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The TCB request block chain (RB) is scanned to find the first PRB 
whose load module name is not DPPTPMON. This is to identify any 
routine that has been LINKed or SYNCHed to. 

The work queue (WQE) load control block chain (LCB) is used to locate 
the entry point name of the module given control from DPPTPMON. If it 
is not a Special Real Time Operating System task, control is returned 
to ABEND processing. 

Using the PRB module nane (if found in step 1) or the LCB entry 
point nane from step 2 as the name of the ABEND module, the user 
STAE exit control block (STAESBR) chain is scanned to deter- 
mine if a user exit routine was specified for that module. If 
so, the user exit routine, register 15 will contain zero if normal 
SRTOS STAE processing is to continue zero, if normal SRTOS is a 
plus for value, if OS retry is requested and a negative four value 
to by pass normal SRTOS STAE processing and OS retry. 

Using the PRB load module name (if found in step 1) or the LCB entry 
point name from step 2 as the name of the ABENDing module, the STAE 
control block (STAEBLK) chain is scanned to determine if any special 
processing has been requested for that module. If not, control is 
returned to ABEND processing. 

The option flags in the STAE control block (STAEABND) is used to 
determine the processing requested on a previous STAE command. 
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accept PATCHes to selected TCBXs 
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All TCBXs are examined to determine if they are to be affected, based 
on the mask byte and/or name. Those selected are modified if re- 
quested and a message data block in the internal work space built for 
each selected TCBX. 

The data collected in the message data block (s) is formatted into 
message DPP862I. If XREF was specified, message DPP863I is output 
one or more times for each selected queue holder and queue processor. 
It contains the names of the TCBX(s) that are connected to the select- 
ed TCBX. 
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Time Management 



The Special Real Time Operating System time management services fall into 
two major categories. First, the Special Real Time Operating System time 
and date are maintained independently of the 0S/VS1 time and date. 
Second, the capability of issuing PATCHes on a cyclic-time interval is 
provided through the PTIME macro call. This is accomplished by two sub- 
tasks created during initialization by DPPITIMI and the PTIME SVC, 
DPPCTSVC. The time update routine, DPPCTIME, is responsible for updating 
the time and date in the Special Real Time Operating System data base 
array, DPPCTIMA, and for posting the PTIM monitor routine, DPPCPTIM, 
whenever one or more PATCHes are to be issued. 



The user communicates with the time management routine through a PTIME 
macro call. This is shown in Figure 2-29. 

At initialization, or at midnight, or whenever it is determined that the 
time maintained by the Special Real Time Operating System is not correct, 
time management routine, DPPCALCF, is called to calculate a new correction 
factor to be added to the time-of-day clock value to obtain the corrected 
time. Another routine, DPPCUPCF, is called to update the correction facto 

Serial use of the array, and this PTQE chain by the time management 
routines is via the use of LOCK requests specifying the resource 
name 1 TIME 1 . 
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Figure 2-29. Time Management-User Program Relationship 



2-84 



Monitor Routines 



DPPITIMI - 
Time Initialization 
Routine 



2-31 



DPPCTIME - 




Time Update Routine 




2-32 



DPPCPTIM - 




PTIME Monitor 


Routine 




2-33 



Special Real Time Operating System Time Management 



Supervisor Call Routine 



DPPCTSVC - 
PTIME SVC 



2-34 



DPCTSVC1 - 
RET Option 


2-35 


1 


DPCTSVC2 - 
ADD Option 


2-36 


1 


DPCTSVC3 - 
MOD Option 


2-37 


1 


DPCTSVC4 
DEL Option 


2-38 



Time Alteration 
Routines 



DPPCALCF - 
Calculate Correction 
Factor 



2-39 



DPPCUPCF - 
Update Correction 
Factor 



2-40 



Figure 2-30 (1 of 2) Special Real Time Operating System Time Management Overview 
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A GETARRAY macro call is used to obtain the address of the time array, 
DPPCTIMA. This address is stored into the SCVT. 



Module DPPCALCF is entered via a LINK SVC to calculate a time correc- 
tion factor. The condition code is tested after a "store clock" 
instruction to determine if the TOD clock is operational. 

Module DPPCUPCF is entered via a LINK SVC to update the time correc- 
tion factor and set the current time in the time array. 

Module DPPCPTIM is attached to create the PTIME monitor task. 

Module DPPCTIME is attached to create the time update task. 
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Figure 2-32 (2 of 2). 
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A S TIMER WAIT is issued specifying the SYSGENed time interval. After 
all processing has been completed, DPPCTIME branches back to the top 
of the program and reissues the STIMER. The time interval is contain- 
ed in the time array, DPPCTIMA, which was defined during SYSGEN. 

The 0S/VS1 time-of-day clock value and the time correction value are 
used to calculate the current time of day. 

If the Special Real Time Operating System time is less than or greater 
than the expected time by a predefined tolerance value, DPPCTIME 
links to DPPCALCF to recalculate the correction factor. Message 38 is 
issued to inform the user of this condition. 

If the Special Real Time Operating System time is greater than 24 hours , 
a 24-hour value is subtracted from the correction value, and DPPCTIME 
links to DPPCUPCF to update the Special Real Time Operating System 
time array DPPCTIMA with the new correction factor, time, and date. 

If the Special Real Time Operating System time was found to be in 
error in step 3, DPPCTIME LINKs to DPPCUPCF to update the Special 
Real Time Operating System time array with the new correction factor, 
time, and date. 



The TIMEECB ECB is posted . Module DPPCPTIM WAITs on this ECB, 
posted 9 DPPCPTIM processes all PTQEs in the time interval. 
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Figure 2-33 (2 of 2). 
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DPPCPTIM waits on an ECBLIST (TIMEECB & TIMEECB2). After all pro- 
cessing has been completed, DPPCPTIM branches back to the top of the 
program and reissues the WAIT. 

Bit 7 of the PTQEFLG1 is used to determine if the PTQE is to be 
deleted. A DPATCH is issued if the user had requested it. The PATCH 
ECB is posted with an X'4F' if the user had supplied an ECB. The 
problem parameter list (if any) is then freed. The PTQE is removed 
from the PTQE chain and the CBGET core is freed. 

All PTQEs with a time of next PATCH value (PTQETIME) less than the 
current Special Real Time Operating System time plus the SYSGENed time 
interval are processed. That is, a PATCH is issued specifying the 
TASK as defined in the PTIME macro. If this is the last PATCH 
requested or if the PATCH return code is greater than 8, a DPATCH is 
issued if the user had requested it. The PATCH ECB is posted with an 
X'4F' if the user had supplied an ECB. The problem parameter list 
(if any) is then freed. The PTQE is removed from the PTQE chain and 
the CBGET core is freed. If the PATCH return code is greater than 8, 
an error message is issued. 
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16= No CBGET Core 



Figure 2-34 (1 Of 2) - Time Mange ment PTIME SVC 
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Extended Description 



Call subroutine DPCTSVC1 to calculate current time. 

Call subroutine DPCTSVC2 to build a new PTQE. 

Call subroutine DPCTSVC3 to modify an existing PTQE, 

Call subroutine DPCTSVC4 to delete an existing PTQE, 
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Figure 2-35 (1 Of 2) - Time Management "RET" Option 
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Figure 2-35 (2 of 2). 
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On entry to DPPCTSVC, general purpose register 1 contains 0 to 
indicate a RET PTIME option request. The Special Real Time Operation 
System correction factor is subtracted from the OS TOD clock value 
to obtain the current Special Real Time Operation System time. 
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Figure 2-36 (1 Of 2) - Time Management "ADD" Option 
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Figure 2-36 (2 of 2). 
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3. 



On entry to DPPCTSVC, general purpose register G contains 4 to 
indicate an ADD PTIME option request, and register 1 contains the 
address of the PTIME input parameter list, PTIMEL. 

If the PROBL length is less than 8, it is saved in the PTQE. 

The SYSGENed time interval is the minimum acceptable value for the 
start, stop, or interval times. The user is informed of this condi- 
tion through a return code in register 15. (See Figure 2-34.) If 
neither a stop time nor a count value is specified, the PTIME is 
assumed to be infinite. 

The newly created PTQE is added to a chain of PTQEs via a CHAIN macro 
call. This PTQE chain is ordered in ascending sequence according to 
the value in the PTQETIME field. If a PTQE ID was not specified, 
then the storage address of the PTQE is used for the PTQE ID. 

The PTQE ID is returned to the caller in register 1 . 
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Figure 2-37 (1 Of 2) - Time Management "MOD" Option 
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Extended Description 



On entry to DPPCTSVC, general purpose register 0 contains 8 to 
indicate a MOD PTIME option request, and register 1 contains the 
address of the PTIME input parameter list PTIMEL. 

The PTQE chain is searched in order to locate the correct PTQE (or 
PTQEs). Either the task name and/or entry point must have been 
specified in the PTIME macro. All PTQEs containing the specified task 
name, and /or entry point name, and/or ID are modified. If a PTQEID 
is not specified. If a PTQEID is supplied then only that PTQE is 
modified . 

The PTQEs are rebuilt from this information contained in the PTIMEL. 
The update PTQEs are added to a chain of PTQEs via a CHAIN macro call. 
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Extended Description 



On entry to DPPCTSVC, general purpose register 0 contains 12 to 
indicate a DEL PTIME option request, and register 1 contains the 
address of the PTIME input parameter list PTIMEL. 

The PTQE chain is searched in order to locate the correct PTQE (or 
PTQEs). Either the task name and/or entry point must have been 
specified in the PTIME macro. All PTQEs containing the specified 
task name, and/or entry point name, and/or ID are modified (i.e., bit 
7 of the PTQEFLG1 is turned on to indicate that this PTQE is to be 
deleted), if a PTQE ID is not specified. IF a PTQE ID is supplied 
then only that PTQE is modified. 

The TIMEECB ECB is posted. Module DPPCPTIM waits on this ECB. When 
posted, DPPCPTIM removes all PTQEs with bit 7 of the PTQEFLG1 set to 
one . 
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Figure 2-39 (1 Of 2) - Time Management - Calculate Correction Factor 
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Figure 2-39 (2 of 2). 
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Register 1 contains the address of a 3-word parameter area. The time 
and date obtained from the external time source is stored in CALTIME 
and CALDATE, respectively. The time is binary in 10 millisecond units, 
The date is a Julian date of the form "OOYYDDDF" where YY is the last 
two digits of the year and DDD is the day of the year. 

NOTE: The default external time source is the standard OS time 

routine. Segment DPCALCF1 may be replaced by a user written 
interface program to support another time source. 

A PTIME macro call with the RET option is used to obtain the current 
time. 

The time is subtracted from the time provided by the external time 
source to provide an algebraic sum to "be added to the current 
correction factor. 
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Figure 2-40 (1 Of 2) - Time Management - Update Correction Factor Routine 



Figure 2-40 (2 of 2). 
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Extended Description 



Messages and 
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Register 1 contains the address of a 3-word parameter area. The 
CALTIME field contains an algebraic sum to be added to the current 
correction factor. 

2 The current time is updated based on the new correction factor. 

3 The date stored in the CALDATE field is stored into the time array 
as the current date. 

If the time is adjusted backward, then the time and count values in 
the PTQEs are reset (back to the original start time if necessary). 
If the time is adjusted forward, then it is assumed that the interven- 
ing time intervals were skipped. 

NOTE: Message 39 is issued to inform the user that the time correc- 
tion factor has been updated. 
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Data Base Management 

The Special Real Time Operating System data base is designed to fulfill the 
needs of data storage and access of a realtime operating system. The 
Special Real Time Operating System data base subroutines provide the user 
with an interface to the information contained in the data base. Through 
the use of these subroutines, data* may be retrieved from or replaced in the 
data base. In addition, sections of the data base may be copied to a direct 
access device to provide a historical log. 

During a normal start, i.e., when the job is initially started through 
standard OS/VS Job Control statements with the EXEC card specifying 
PGM=DPPINIT, the data base initialization programs will read in the initial 
data for all VS resident arrays that specified "INIT«YES" on the ARRAY 
macro in the offline utility phase. Those VS arrays for which "INIT=YES" 
was not specified have VS storage space allocated, but no data is moved 
into the space. 

During a refresh start, i.e., when the job is reinitialized from a restart 
data set, or during a normal start when the SYSINIT input stream does not 
contain a "DBREF NO" control statement, the data base initialization pro- 
gram will refresh all VS resident arrays that specified "REINIT=YES" 
and that requested logging in the offline utility phase with the last 
logged copy of that array. The log arrays are initialized to resume log- 
ging with the last logged copy of each loggable VS resident array. 

The Data Base Initialization program, DPPIDBAS, is responsible for the 
initial load of the VS resident data base, building the data base control 
blocks, and loading the data base subroutines (DPPDBLOK (GETBLOCK/PUTBLOCK) , 
DPPDITEM (GETITEM/PUTITEM) , and DPPDARAY (GETARRAY/PUTARRAY) ) . These sub- 
routines are independent with little or no communication with each other 
and provide the user interface with the data contained in the data base 
as shown in Figure 2-41. 

The Data Base Logging Initialization program, DPPILOGN, is responsible for 
loading the logging subroutines (DPPDGETL (GETLOG) , DPPDPUTL (PUTLOG), and 
DPPDUMPL (DUMPLOG) , initiating time-driven logging (DPPDFREQ) , and re- 
freshing user-specified VS resident arrays (DPPDUPDL) . The three logging 
subroutines are also independent of each other but use GETBLOCK, PUTBLOCK, 
etc. to actually retrieve the requested data as shown in Figure 2-42. 

Data base is the only functional area that requires special routines used 
primarily for communications between partitions in a two-partition en- 
vironment. Since the 0S/VS1 I/O control blocks used to read 3n d write data 
from the DA resident data base exist only in the MASTER partition, any 
data base request must be executed by a task in the MASTER partition. 
This is accomplished by a SLAVE partition interface routine, DPPDSUB 2, 
which receives control in the SLAVE partition as the result of a user 
macro call (i.e., GETBLOCK, PUTLOG, etc.) DPPDSUB2 PATCHes a MASTER parti- 
tion interface routine, DPPDBSIF, in the MASTER partition. DPPDBSIF then 
branches to the appropriate subroutine (i.e. , DPPDBLOK, DPPDPUTL, etc.) .to 
perform the requested service as shown in Figure 2-43. 
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Figure 2-44 - Special Real Time Operating System Data Base Overview 
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Figure 2-45 (1 Of 2) - Data Base Initialization 
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Figure 2-45 (2 Of 2) 
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If there is an invalid XCVT, SCVT, or TCBX, job step. 


USER 10 
USER 11 




2 


The partitioned data set referenced through the DBINIT DD card con- 
tains the four primary data base control blocks (the Primary Array 
Locator Table, the Secondary Array Locator Table, the Data Base 
Logging Control Block, and the Data Base DD name table) . These were 
built by the offline data base utility program DPPXDBIN. If there is 
not an @INIT member, ABEND job step. If unable to locate log array, 
ABEND job step. 

NOTE: The DBALTPRI and DBALTSEC are read into supervisor storage, 
and DBLOGCB and DBDADD are read into user storage. 
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The DBPBT contains the name of the last array in each page of the 
DBALTSEC. This will allow the data access routines to locate the 
requested array with a minimum number of page faults to the DBALTSEC. 
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The data for VS resident arrays is read into storage from the parti- 
tioned data set referenced through the DBINIT DD card. All data sets 
containing the direct access resident arrays are opened. If unable 
to open, ABEND job step. 
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Figure 2-46 (1 Of 2) - Logging Initialization 
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Extended Description 



Logging routines DPPDGETL, DPPDPUTL, and DPPDUMPL are loaded into 
storage and their addresses are stored in the SCVT. 

A PUTLOG macro call is issued for each log frequency (0, 1, 2, and 3) 
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of that array following a restart or if data base refresh had been 
specified through the use of a DBREF statement in the SYSINIT input 
stream during a normal start. In addition, logging will be resumed 
with last logged copy for all logging arrays. 
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A GETARRAY macro call is used to find the size and number of blocks 
in the refresh array, @REFRSH . Then a GETBLOCK macro call is used 
to retrieve the array. 

The Page Boundary Table and the Secondary Array Locator Table are 
used to calculate the array number for the named arrays. The array 
number is used as an index into the Primary Array Locator Table. The 
DBALTPRI contains the address of the VS resident array. 

A GETBLOCK macro call is used to read the last log copy into the VS 
resident data base. 
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Figure 2-48 (1 Of 2) - GETBLOCK/PUTBLOCK Routine 
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The DBPBT and the DBALTSEC are used to calculate the array number for 
the named arrays. The array number is used as an index into the 
DBALTPRI and DBALTPRI contains the address of the data for VS 
resident arrays or the relative track address of the data for DA 
resident arrays. 

If protect»YES is specified, the entire VS resident data base is 
locked for VS resident arrays or one Direct Access data set is locked 
for that DA resident array. 

Only the user specified blocks of the array are accessed or modified 
on GETBLOCK and/or PUTBLOCK requests. 
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user may supply the name of a single item for which data is to be 
processed or a list of items. 

Program segment NAMESOLV converts item names to internal format. 

Program segment MOVESPEC will move the specification data to the user's 
area. 

Program segment CONVSPEC will convert the specification data to 
addresses . 

Program segment MOVEADDR will move the item addresses to the user's 
area. 
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if a GETITEM is being processed or from the user's area to the data 
base if a PUTITEM is being processed. 
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The array named @ CI DS contains the item specifications for every item 
defined to the system. 

The @CIDS index table is used to locate the block of the DA resident 
array that contains the specified item name, if it exists. This 
reduces the number of I/O operators required to locate this item name. 
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The processing for GET ARRAY or PUTARRAY is identical with the exception 
of the direction of the data movement if TYPE=DATA. 

The protect function disallows a user from moving data into or out of 
the data base until previous users have completed their data moves. 

The user may specify a single array name, number or address or a list 
of array names, numbers or addresses. In either case, the processing 
is similar with the exception that the program loops through this logic 
if lists are supplied. 

Array addresses may be resolved and passed to this program to bypass 
name resolution on each use of a list. The addresses passed are used 
as the address of the array. 
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Figure 2-51 (4 of 6). 
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GETARRAY and PUTARRAY processing is identical with the exception of 
the direction of the movement of data if TYPE=DATA. 
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Figure 2-51 (6 of 6). 
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The DBINIT data set contains a logical record for each array which 
consists of a 16-byte entry for each item defined for the array. 
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Figure 2-52 (1 Of 2) - GETLOG Routine 



Figure 2-52 (2 of 2). 
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The DBPBT and the DBALTSEC are used to calculate the array number for 
the named arrays. The array number is used as an Index into the 
DBALTPRI . The DBALTPRI contains the address of the VS resident array, 
The logheader precedes the array data in storage. 

The VS array logheader contains the array number for the associated 
log array. The log array number is used as an index into the 
DBALTPRI. The DBALTPRI for the loggable array contains an index into 
the data base logging control block. 

The time fields in the DBLOGCB are used to reduce the search for the 
requested log copy. GETBLOCK subroutine is used to read the log- 
header from the log copies until the correct log copy is found. 

GETBLOCK subroutine is used to read the entire log copy into the user 
provided area. 
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Figure 2-53 (1 Of 2) - PUTLOG Routine 



Figure 2-53 (2 of 2). 
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The DBPBT and the DBALTSEC are used to calculate the array number for 
the named arrays. The array number is used as an index into the 
DBALTPRI. The DBALTPRI contains the address of the VS resident array. 
The logheader precedes the array data in storage. 

The LOGHDR option is used to replace a log copy in the log array. 

The BLKLIST option is used to update blocks within the current log 
copy of the Log Array. 

The logheader and Log Control Block are modified to point to the next 
log copy. 

Normal logging copies the current VS resident array and its log header 
into the next log copy. If it is determined that wraparound will occur 
with the next PUTLOG request, the user defined wraparound processor 
(if any) is patched. 
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Figure 2-54 (2 of 2). 
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The user supplied DD name defines the DUMPLOG data set. This data set 
is opened and positioned according to the options specified on the 
DUMPLOG macro. 

The DBPBT and the DB ALTS EC are used to calculate the array number for 
named arrays. The array numbers used as an index into the DBALTPRI. 
The DBALTPRI contains the address of the data for the VS resident 
array, and the logheader immediately precedes the array data in stor- 
age. 

The VS array logheader contains the array number for the associated 
log array. The log array number is used as an index into the 
DBALTPRI. The DBALTPRI for the loggable array contains an index into 
the data base logging control block. 

The requested log copy is read into VS storage. 

The log copy is then written to the DUMPLOG data set using variable 
blocked spanned records. 
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The ID passed through the PATCH macro (4, 8, or 12) is used as an index 
into the table of PUTLOG number lists contained in the Log Control 
Block. The patch is the result of the PTIME SVCs issued by DPPILOGN 
during initialization. 

The DBLOGCB tables are used to build the DBREFRSH table which contains 
the current block number for each log array. 

GETBLOCK macro call is used to write the DBREFRSH table into the 
refresh array, @REFRSH. 
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Each macro call in the SLAVE partition branches to a unique location in 
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tion) of the data base subroutine to be executed and registers 0 and 1 
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The message handler initialization routine, DPPMINIT, will create a 
Special Real Time Operating System task with task name DPPMMSG1 for 
the message output task (DPPMMSG1) . 




DPPMINIT 
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The address of the message routing code table (array DOMXSMRC) will 
be obtained from the data base. If the array cannot be found, ABEND 
23 will be issued. 
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The contents of the message dafa spt wi 1 1 mnvoH tn t-i-n* mnG s9»a 
DCB table (MDT) . 
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The message data set pointed to by the MSGDS DD card will be 
opened as a BPAM input data set. If the data set cannot be opened, 
ABEND 20 will be issued. 


USER 20 


DPPMINIT 
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The MDAT flag is a one bit flag in the message address table (MDAT) . 
This flag will be turned off (set to 0) if the pre-restart flag 
(XCVTSBOP) in the XCVT is on. The flag will be turned on (set to 1) 
if XCVTSBOP is post-restart. 
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The address of the message DCB will be placed in the MDAT. 
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When message output data sets DD names are specified in Array 
DOMXSMPC, DPPMINIT will do the following: 

A. Move all message output data sets DCBs to MDT. 

B. Open message output data sets DCBs as QSAM output data sets. 
If any message output data set is not opened, error message 
DPP898 will be issued. 

C. Place address of all message output data sets in MDAT. 

The MESSAGE macro processor (DPPMMSG) will be loaded into core and its 
address will be placed in the SCVT. 

The address of MDAT will be placed in the SCVT. 

A Special Real Time Operating System lock control block will be built 
for DPPMMSG and it's address will be placed in MDAT. 

A Special Real Time Operating System lock control block will be built 
for DPPMMSG1, and its address will be placed in MDAT. 

The address of array DOMXSMRC will be placed in MDAT. 
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On entry to DPPMMSG, register 1 will contain the address of the 
MESSAGE macro expansion. 




DPPMMSG 
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A Special Real Time Operating System LOCK macro will be issued for 
DPPMMSG with the lock control block found at location MDATLCK in the 
MDAT. 




DPPMMSG 
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Save address of the message data set DCB found at location MDATMDCB 
in the MDAT. 




DPPMMSG 
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If the specified message is found in the message data set, it will be 
read into virtual storage. If the message is not found, the return 

CUUc will DC Set LO O. 




DPPMMSG 
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The specified message will be formatted with all variables converted 
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Minutes, SS-seconds, t-tenths of seconds), and if requested the date 
(DD/MMM/YY, DD-DAY, MMM-Month, YY-year) and the action code 
(I-information, A-action, D-decision) . 




DPPMMSG 
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If the address of a user return area is specified in the MESSAGE 
macro expansion, the message will be moved into the area. 




DPPMMSG 
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If no routing codes are passed in the MESSAGE macro expansion, the one 
on the defined (DEFMSG) message will be used. The routing codes are 
checked against the valid routing codes in the DOMXSMPC array (RCT 
message routing code table) in the data base. If the routing codes 
are not valid, the return code is set to 12. If the routing codes 
are valid, the message will be passed to DPPMMSG1 via a PATCH macro. 
Routing code 255 is a no operation (DPPMMSG1 is not patched). 
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The address of the Special Real Time Operating System Lock 

Control Block for DPPMMSG1 is found in the MDAT at location 

MDATLCKO. A LOCK-macro using this lock control block will be issued to 

lock DPPMMSG1. 

If the MDATFLG flag is off (flag set to prerestart) and a restart is 
to be taken, issue all messages to the system console before the 
restart. 

If the MDATFLG flag is on (flag set to post-restart) , find the specified 
routing codes in RCT (Array DOMXSMRC) . The formatted message is then 
Dutput to the devices specified in the table. 
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Figure 2-62 (1 Of 2) - Message Routing Code Status Change Facility 
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Save the address of the passed parameters. 

Save the address of the RCT (message routing code table array 
DOMXSMRC). 

If an alternate routing code is passed which is not active, issue error 
message 33 and set the error flag in the register save area used by 
DPPMMSGV pointed to by register 13. 

If the routing code = alternate route code, issue error message 34 
and set the error flag in the register save area used by DPPMMSGV 
pointed to by register 13. 

If the error flag is not on: 

Place the routing code in service if in-parameter passed. If the out- 
parameter passed, place routing code out-of-service. 

If the STATUS or STATALL parameter passed, display status of routing 
code(s) via system messages 29 through 32. 



If invalid parameters passed, issue error message 35. 
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Input Message Processing 



The Special Real Time Operating System provides a facility to allow for 
operator - Special Real Time Operating System communication or for the 
operator to communicate with a subsystem. This facility is the Input 
Message Processor. The Special Real Time Operating System, during initial- 
ization, issues a WTOR and leaves the reply outstanding. At a later time, 
the operator may reply with a predefined IMP command. The Input Message 
WTOR routine, DPPXIMPW, receives control and as the result of this reply 
patches the input message processing routine, DPPXIMPP. DPPXIMPP is re- 
sponsible for validating the operator command and patching the specified 
user routine. 
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Figure 2-63 - Special Real Time Operating System Input Message Processing Overview 
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The System/370 operator will issue an IMP Command to a WTOR issued by 
DPPXIMPW. INPUT MESSAGE PROCESSING AWAITING REPLY. 

If the STOP command is entered, ABEND job step with dump code 
222. 

The IMP command will be passed to DPPXIMPP via PATCH. 

DPPXIMPW will issue a diagnostic WTO message to the System/ 370 
operator. INPUT MESSAGE PROCESSING COMMAND ACCEPTED. 
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A 255 byte translate and test table will be built where byte 0 is 1 
and byte 107 is 2 and the other 253 bytes are set to 0. 

Register 13 points to a work area used by DPPXIMPP. The IMP command 
will be moved to this area. 

The address of the IMP table (array DPPXIMP) will be obtained via a 
GETARRAY nacro. 

A search is made of the IMP table for the passed IMP command. 

If the command is invalid, system message 26, 70, 72, or 79 will be 
issued. 

The IMP table contains the parameter format for the passed IMP 
Command parameters. The parameters will be converted to fullword, 
hexadecimal, or EBCDIC format. 

The IMP table contains the name of the processing programs for all 
IMP commands. The IMP command converted parameters will be passed to 
the processing program via a PATCH macro to either the MASTER or 
SLAVE partition. 



DPP026I 
DPP070I 
DPP072I 
DPP079I 



DPPXIMPP 



DPPXIMPP 



DPPXIMPP 



DPPXIMPP 



DPPXIMPP 



DPPXIMPP 



O 
m 
Z 

CO 

m 
O 

> 
H 
m 

3D 



3D 

o 

m 
7} 
H 
< 

O 



CD 

2 



aafc 

an 



DPPXKILL 



Input 



From DPPXIMPP (Figure 2-65) 
Via A PATCH 



Register 1 



Patch Parameters 
Address 



Process 



Output 



Cancel Input 
Message Proc- 
essing (IMPf 
Command 
Parameters 



DUMP/ 
NODUMP 



Operator 
Comments 



Save Passed Parameters 



0 



If Operator Comments Passed With CANCEL 
IMP Command Parameters. Output Operator 
Comments Via System Message 60. 



J If Dump Parameter Passed Then ABEND 
With A Completion Code Of 122. Issue 
OS/VS ABEND Dump. 



ELSE If NODUMP Parameter Passed Then 
ABEND With A Completion Code of 222. 



DPP060 



E 



Invalid Action Specified. Issue Error 
Message 27. 



OS/VS ABEND 
DUMP 




DPP027 



Return To Caller 
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Save address of the CANCEL Input Message Processing (IMP) command 
parameters. 

If operator comments passed with the CANCEL IMP parameter, output the 
operator comments via message 60. 

If the DUMP parameter is passed, issue ABEND macro with the dump 
option and a completion code of 122. 

If the NODUMP parameter is passed, issue ABEND macro without the 
dump option and a completion code of 222. 

If action requested is not DUMP or NODUMP, an error message is 
issued. 
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Report Data Output 

The report data output facility provides the capability of transferring 
user-generated data from one or more user-defined sequential data sets to 
a single user-defined sequential data set. The report data output facility 
is invoked through a REPORT input message processing command. 
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Figure 2-67 Special Real Time Operating System Report Data Output Facility Overview 
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Figure 2-68 (1 Of 2) - Report Data Output Facility 
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Save the address of the passed REPORT IMP command parameters. 

OPEN the passed output data set. If the data set was not opened, 
issue system message 53. 

If the NEW parameter was passed with the REPORT IMP command, the 
output data set will be positioned at the beginning of the output 
data set. 

Open the passed input data set. If the data set was not opened, issue 
system message 53. 

All data in the input data sets is moved into the output data set. 
The output data set must be large enough to contain the data. 
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Data Recording and Playback 

Data recording and playback enable the user to record data in a realtime 
environment and to play it back at a later time either in a realtime 
environment or in an offline environment. 

Data recording is enabled (or disabled) by DPPXRINT as the result of a DREC 
operator command. When data recording is enabled DPPXDRC receives control 
from the user via a RECORD macro call and is responsible for formatting 
and recording the requested data. When data recording is disabled a stub 
routine, DPPXDRCX, replaces DPPXDRC. DPPXDRCX sets a return code and 
returns to the user without recording any data. 

Data playback is initiated in the online system by a PATCH to module 
DPPXPCON. This routine is responsible for converting the input playback 
parameters to a form acceptable to the playback routine, DPPXDPB. DPPXDPB 
gains control from DPPXPCON by a LINK macro call and is responsible for 
playing back the requested data. 

Data playback is initiated in the offline system by executing module 
DPPXNRTI on an EXEC statement specifying PGM-DPPXNRTI. This routine is 
responsible for building a parameter list in a form acceptable to 
DPPXPCON and then linking to that routine. Once DPPXPCON receives control, 
the playback operation is the same as for the online system previously 
described. 
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When DPPXRINT is entered, the address of the REPORT input message 
processing command will be saved. 

A Special Real Time Operating System DEFLOCK macro will be issued to 
build a LOCK control block (RECD) for data recording routines 
(DPPXRINT and DPPXDRC) . A LOCK macro will be issued to lock DPPXRINT. 

If the DISABLE parameter was passed. 

A. Clear location SCVTRWA in the SCVT. 

B. Issue a LOAD macro for DPPXDRCX (dummy data recording 
routine) and the address of DPPXDRCX will be stored at 
location SCVTREC in the SCVT. 

C. Close the data recording data set. 
If ENABLE parameter was passed. 

A. OPEN data recording data set. If DCB is not opened, issue 
message 50. 

B. Issue a LOAD macro for DPPXDRC (data recording routine). 

C. Build data recording table (DRT) and store address at location 
SCVTRWA in the SCVT. 

D. Store address of DRT at location DRTAB in program DPPXDRC (the 
first 36 bytes of DPPXDRC are used as a control table). 

E. The Special Real Time Operating System time array (DPPCTIME) 
address will be stored at location SCVTTIME in program 
DPPXDRC (see 4-D) . 
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Figure 2-70 (3 Of 4) - Data Recording Initialization Routine 
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2-70 (4 of 4). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



If the ENABLE parameter passed: 

A. Move data recording (RECD) lock control block name to location 
LOCKNAME in program DPPXDRC (see Figure 2-70 (2 of 4) 4-D) . 



B. 



C. 



D. 



E. 



G. 



Store data recording (RECD) lock control block address at loca- 
tion lock in program DPPXDRC (see Figure 2-70 (2 of 4) 4-D). 

A GET macro will be issued for the address of an output buffer. 
The address of the output buffer will be stored at location 
QSAMBUF in program DPPXDRC (see Figure 2-70 (2 of 4) 4-D). 

A copy of the time array (DPPCTIME) will be moved to location 
DRTTIME in the DRT . 

If the ADD parameter passed, all passed IDs will be moved to 
the DRT at location DRTID. 

If the ALL parameter passed, the ID count (DRTCOUNT) in the 
DRT will be set to 255. 

If the DEL parameter passed, all passed IDs will be deleted 
from the DRT. 
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Figure 2-71 (1 Of 2) - Data Recording Routine 



Figure 2-71 (2 of 2). 



Step 



Extended Description 



When DPPXDRC is entered, register 0 will contain in bits 0-15 the ID 
to be affixed to the data and in bits 16-31 the length of the data. 
Register 1 will contain the address of the data to record. 

Contained in the Data Recording Table (DRT) are the IDs that may be 
used for data recording. The ID passed to data recording will be 
checked against this table. If the passed ID is in DRT or if the 
enable all flag is on, the data will be recorded, otherwise the return 
code is set to 8, and no further processing is performed. 

When the time in the DRT is not current time, DPPXDRC will replace 
the time array contained in DRT with an updated copy. 

The Data Recording/Playback data set built by DPPXDRC is a sequential 
QSAM data set that may be on a tape or a disk volume. The data set 
consists of three types of records: date records, pad records, and 
user records. A date record consists of the time array. The date 
record is written each time the DRT is updated. A pad record is 
written whenever the QSAM output buffer, used by DPPXDRC, contains 
less than 50 but more than zero bytes of data. A user record consists 
of the data that the user requested to be recorded. 

If there is any error in the data recording task (DPPXRINT) , message 
DPP895 will be issued and data recording will be disabled. 
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Figure 2-72 (1 Of 2) - Dummy Data Recording Routine 
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Figure 2-72 {2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



DPPXDRCX is a dummy data recording routine that sets register 15 to 
return code 4. The RECORD macro will branch to DPPXDRCX until the 
actual data recording routine (DPPXDRC) is initialized through the 
DREG IMP command. 
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Figure 2-73 (1 Of 2) - Data Playback Parameter Conversion Routine 
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Return To Caller 



figure 2-73 (2 of 2). 



Step 



Extended Description 



When DPPXPCON is entered, register 1 will contain the address of 
the playback parameters to process. 

The playback parameters pointed to by register 1 will be moved to 
a work area for processing. 

The start and stop dates and LOAD module will be converted to 
EBCDIC. The start and stop times will be converted to decimal data, 
and the ID count and IDs converted to hexadecimal data. 

The converted playback parameters will be passed to DPPXDPB via a 
link. 
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Figure 2-74 (1 Of 2) • Data Playback Routine 



Figure 2-74 (2 of 2). 
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Extended Description 



When DPPXDPB is entered, register 1 will contain the address of the 
playback parameter. 

The data recording/playback data set is a sequential QSAM data set 
built by DPPXDRC. The data set can be a tape or disk data set. 

The data recording/playback data set is opened for input. If the data 
set is not opened and DPPXDRC is running offline (non-Special Real 
Time Operating System), DPPXDRC will ABEND. If DPPXDRC is running 
under Special Real Time Operating System, and the data set is not 
opened, DPPXDRC will issue message 51. In either case, no further 
processing is performed. 

When the data was recorded, it was time tagged (date and time of day 
was added) . In the playback parameters a time and ID range is speci- 
fied. All data on the data recording/playback data set that falls 
within the specified time and ID range will be read in. 

The data played back will be passed to a routine for processing. The 
data will be passed to a user routine if one is specified. If no 
user routine is specified, the data is passed to Special Real Time 
Operating System hexadecimal dump routine (DPPXRDR) . 
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Figure 2-74.1 (1 Of 2) 



Return To Caller 



Figure 



2-74.1 (2 Of 2) 



Step 



Extended Description 



Messages And 
ABEND Codes 



PDL Segment 



The Data Is Converted From Hexadecimal To EBIDIC For Printing. 
A Print Line Will Be Built In The Same Format As An OS/VS 
ABEND Dump Line. 



The Data When Printed Will Resemble An OS/VS ABEND Dump. 



DPPXRDR 



DPPXRDR 



O 
m 

Z 
CO 

m 
O 

> 
m 

2D 



a 
o 

m 
3> 
-4 
< 

O 

Tl 

w 
2 



to 



CO 



LICENSED MATERIAL - PROPERTY OF IBM 



Duplicate Data Set Support 

One of the capabilities of the Special Real Time Operating System is to 
have a higher degree of direct access data reliability by duplicating some 
of the data sets. This functional area, called Duplicate Data Set (DDS), 
is a SYSGENed option and allows a limited degree of online data »tH 
switching. 

During initialization, the frequently used DDS load modules are loaded 
into core and their addresses are saved within the DDS control table 
header. 

The DDS data areas are constructed at DDS initialization time also, and 
DDS chains are established. There are four basic DDS data areas: The 
DDS control header (DDSCTLHD) , the DDS control area (DDSCTLA) , the DDS 
input/output area (DDSIOA) with its related DDS DECBs, and the DDS ex- 
tension task chain (DDSXTCBC) . 

There are six logical chains in the DDS system which, along with the data 
areas, are graphically demonstrated in Figure 2-75. 

The Systems Communication Vector Table (SCVT) has two pointers in it 
pertinent to DDS. The first pointer (SCVTDDSE at displacement 00) is to the 
DDSCTLHD, which is followed serially by all of the DDSCTLAs. Each 
DDSCTLA will point to a DDSIOA if a DDSDCB is currently DDS opened against 
this DDS. 

The second pointer in the SCVT (SCVTDDSX at displacement 204 10 ) is to the 
first DDSXTCBC. Each DDSXTCBC will point to the next one, the last one 
pointing to zero. Examining the DDSXTCBCs will tell which tasks are using 
DDS in which ways. 

The DDS routines can be divided into four major areas: control routines, 
subroutines, operator commands, and internal subroutine. 

The control routines are responsible for initializing DDS, cleaning up 
open Data Control Blocks (DCBs) etc. at task termination, and ensuring 
that the proper data sets are in service, out-of-service, following a 
failover /res tart. 

The DDS subroutine provides the user interface with DDS during realtime 
execution while the DDS operator commands provide the operator communica- 
tions and control over the DDS data sets (e.g., CREATE a back up, etc.). 

The DDS internal subroutines provide the subservices required by each of 
the other three areas . They function as subroutines and may be called by 
one or more of the other routines in a number of different logical com- 
binations. 
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COMPOSITE PICTORIAL DESCRIPTION OF ALL DDS CHAINS 
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Figure 2-75 (1 Of 2) - Composite Pictorial Description Of All DDS Chains 
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Descriptions 



DDSX CHAIN 



DDSIOA By 
TASK CHAIN 



The SCVTDDSX Word Points To The First DDSXTCBC, 
Which Points To The Next DDSXTCBC, Etc. Each 
DDSXTCBC Consists Of Pointers Pertaining To A Different 
Task Using DDS. 

All Of The DDSIOA's Opened By A Task Are Chained 
Together Via The DDSINIOA Word In The DDSIOA. The 
First DDSIOA Is Pointed To By The DDSX I OA Word 
In The DDSXTQBC For This Task. 



DDSDECB By Each DDSDECB Reserved By A Task Is Chained Through 

TASK CHAIN The DDSDTCBN Word Of The DDSDECB. The First 

Such DDSDECB Is Pointed To By The DDSXDECB Word 

Of The DDSXTCBC For That Task. 



DDSDECB By 
DDSIOA CHAIN 



Each Reserved DDSDECB For A DDSIOA Is Chained 
By The DDSDRCBN Word Of The DDSDECB. The 
First Reserved DDSDECB Is Pointed To By The 
DDSIRCBP Word Of The DDSIOA. 



DDS LOCK 
CHAIN 



Each Task Waiting To Lock A DDS Is Chained 
Together Via Its LECB. The First LECB Is Pointed 
To By The DDSCLECB Word Of The DDSCTLA. 
If A Task Has A DDA Locked, Its DDSXLOCK 
Word Of Its DDSXTCBC Will Point To The 
DDSCTLA. 



DDS SHARE 
CHAIN 



Each Task Waiting-To-Share A DDS Is Chained 
Off That DDS Via An SECB. The First SECB Is 
Pointed To By The DDSCSECB Word Of The 
DDSCTLA. If A Task Is Currently Sharing A 
DDS, Its DDSXSHAR Word Of Its DDSXTCBC 
Points To The DDSCTLA. 



Figure 2-75, 2 Of 2 
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Figure 2-76 Special Real Time Operating System Duplicate Data Set Support Overview 
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Figure 2-77 (1 Of 2) - DDS Initialization 



Figure 2-77 (2 of 2). 
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CD 



Extended Description 



Normally, each card represents a DDS declaration (DDS NAMES card). If 
the first card is REFRESH or READONLY , read the DDSTATUS data set to 
determine the DDS declarations. If errors occur in conjunction with 
the DDS input control stream, ABEND with a decimal code of 80. 

The DDS control header (DDSCTLHD) and DDS control areas (DDSCTLA) will 
will be GETMAINed from subpool 0. A Special Real Time Operating Sys- 
tem define lock will be needed for each DDSCTLA. 

Except for the pseudo-SVC routines (DDSOPEN, DDSCLOSE, DDS FIND /BLDL , 
DDSSTOW) , all other DDS load modules will be loaded and their entry 
points saved at predetermined slots in the DDSCTLHD. 

Using the CHAIN function, the DDSCTLHD shall connect to the SCVT. 
This provides a pathway to the DDSCTLHD from the job step TCB through 
the TCBX, XCVT, SCVT. 

The DDSTATUS data set will keep the DDS declarations up to date. A 
message will be output if the DDSTATUS cannot be updated. 
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Figure 2-78 (1 Of 2) - DOS Task-End Cleanup 



Figure 2-78 (2 of 2). 
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PDL Segment 



Those DDSs Which were left shared or locked, if any, will be in the 
DDSX task chain for this task, which can be located from the pointer 
to the DDSXTCBC within the SCVT. 

Since each reserved (unchecked) DDSDECB is logically part of two 
chains, the task chain and the DDSIOA chain, each must be de-chained 
from both chains if there are any for this task, or for any DDSIOA 
for this task. 

Any DDS opened DDSDCB will still be pending if they were not 
disclosed; therefore, these user DCBs must be restored to their 
preopen status. The 0S/VS1 system will close the DCBs within the 
DDSIOA, which will also be freed. 



DPPSCLUP 



DPPSCLUP 



DPPSCLUP 



i 

00 



DPPSRSTR lnput 



From DPPINIT1 (Figurs 2-12) 



DDSCTLHD 



DDSCHRON 




Process 



Output 



m 



If This Is A Write Restart In 
READONLY Mode, Return 
Directly To DPPINIT 



DDSCTLHD 



DDSCHRON 



CD Turn Off The READONLY 
Flag And Abend Any Task 
Which Has Outstanding DOS 
Requests 




DDSCTLA's 



EL 



Open The DDSTATUS Data 
Set And Read In The DDS 
Status Record, Updating Each 
In-Core DDS Control Area 
Represented In The 
DDSTATUS Record 



0> 



[T)Output A M e ssag e (If 
Required) Indicating Any 
Incora DOS Control Area Not 
Found In The DDSTATUS 
Record Or Any DDS On The 
Status Record And Already 
Incore 



d) 



Output A Message Indicating 
DDS Restart Is Complete 



Messages 



DPP888 



Return To Caller 



Figure 2-79 (1 Of 2) - DDS Failover/Restart 



Figure 2-79 (2 of 2). 
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Failover/restart processing is not required at write restart data set 
time in read only mode. 

Those tasks which have outstanding DDS requested, as noted in the 
DDSX task chains, will ABEND with code decimal 81. 

If the DDSTATUS data set cannot be opened or if the DDS status record 
cannot be read, output the appropriate messages. 



Messages indicating that the DDS status data set has too many or not 
enough declarations alert the operator to these conditions. 

The 'DDS restart is complete' message indicates that the DDS 
aspect of Failure/Restart (updating in-core DDS control tables) 
is completed. 
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Figure 2-80 (1 Of 2) - DDS CHECK Module 



Figure 2-80 (2 of 2). 
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This determination is made by comparing the user's DECB pointer in the 
DDSDECB with the address of the user's DECB. The availability/ 
reserved flag (DDSDAVAL) within the DDSDECB should be X'FF* to indi- 
cate a READ/WRITE operation has been executed. If this condition is 
not satisfied, the user's SYNAD is taken, and control is returned to 
the user following his CHECK macro (bypassing steps 2-5). 

The module DPPSCHPR will return the address of the primary half of 
DDSDECB and the backup half. If the DDSDECB is not properly organized 
and such a determination cannot be made, the user's SYNAD will be 
taken and control will proceed directly to step 5. 

After initially checking on the primary half DDSDECB, the backup half 
is checked if both the backup is in-service and the DCB is opened 
for update or output. 

If SYNAD occurs on the primary DDSDECB and indicates a hardware 
failure, switchover will occur automatically if the backup is in- 
service. If SYNAD occurs during the backup CHECK, the backup is taken 
out-of-service. If SYNAD occurs and there is no backup or no hardware 
failure, the user's SYNAD is taken. 

The user's DECB will contain the correct ECB code and pointers to the 
primary DDSDECB data (IOB, etc.). When running in update mode and 
the check is for a prior read operation, the backup IOB address is 
saved in the user's DECB in the low-order three bytes of his ECB. 

The availability flag is set to X'00' and the DDSDECB is taken off 
its DDSIOA reserved and TASK reserved chains. 
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Figure 2-81 - DDS NOTE/POINT Sending Interface 
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Figure 2-82 (1 Of 2) - DOS NOTE Internal 



Figure 2-82 (2 of 2). 
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The DDS share function is used to prevent a lockout of this DDS during 
the note operation. 

The primary DCB is used since there is no output, and the backup need 
not be inspected. 

This DDS is released for other tasks to lock. 
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Figure 2-83 (2 of 2). 
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The share function will be used to prevent a lockout of this DDS un- 
til to POINT or FIND is completed. 

The indexing on the BALR instruction within the macro indicates the 
type of macro (no index = POINT, index = FIND (TYPE = C)). 

The POINT should be executed to the backup also if the backup is 
in-service. 

The FIND (TYPE - C) should be executed for the backup when the backup 
is in-service. 

The share function will release this DDS for locking. 
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Figure 2-84 (1 Of 2) - DDS READ/WRITE Module 
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Figure 2-84 {2 of 2). 
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Output operations are invalid when running in read only mode. 
Returning to user without starting I/O will cause a SYNAD if he should 
try the related check, so a meaningful return code is given. 

Should no DDSDECBA be available for I/O the user will be given a 
meaningful return code. 

When an available DDSDECBA is found, it is marked reserved and 
connected to the user's DECB. 

The I/O is started against the primary DCB by branching to the 
appropriate 0S/VS1 routine. 

The I/O needs to be started against the backup if in UPDATE mode so 
that the subsequent write update can be done for the backup also. 
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Figure 2-85 (1 Of 2) - BLDL/FIND (Type-D) Formatter 



Figure 2-85 (2 of 2). 
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The previous instructions generated by the DDSBLDL or DDSFIND (Type-D) 
macros indicate which type of macro was issued (an LCR 1, 1 instruc- 
tion would indicate DDSFIND instead of DDSBLDL). 

The type indicator (used as input to DPPSBFST) is 0 for BLDL and 4 
for FIND (TYPE-D). 

The user's DCB pointer will have been complemented (negative value) by 
the macro instructions for DDS, FIND (TYPE-D). * 

The external routine DPPSBFST executes the actual BLDL or FIND and 
expects as input the user's DCB, the macro parameter , and the type. 
The return code from DPPSBFST is not altered when returning to the 
user. 
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Figure 2-86 (1 Of 2) - Close A DDSDCB 
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If the user did not declare this DDS during initialization, it will 
be running in single mode, and the user's DCB will be closed. Steps 
2 through 4 should be omitted, and control returned directly to the 
user. 

The DDS must be shared and both the primary DCB (within the DDSIOA) 
and the backup DCB should be closed, if the backup had been in- 
service at open time. 

Those fields of the user's DCB (DDSIOA, DDS READ /WRITE , DDS CHECK, 
DDSNOTE /POINT, DCBOFLGS) which were altered at DDSOPEN time will be 
restored to their pre-open status. The DDSIOA and any unchecked 
DDSDECB for this DDSIOA will be removed from their DDSX task chain 
(DDSXTCBC) which is .created the first time a task uses DDS. 

The DDSIOA pointer in the DDS CTLA will be zeroed and the core for this 
DDSIOA will be FREEMAINed, the FREEMAIN parameters having been saved 
at DDSOPEN time. This DDS will be unshared. 
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Figure 2-87 (1 Of 2) - DOS OPEN Routine 



Figure 2-87 (2 of 2). 
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The DDSIOA will be GETMAINED from subpool 0 and the FREEMAIN 
parameters saved. The NCP operand (default = 1) of the user's DCB 
will determine how many DDSDECB pairs are generated. 

If the primary OPEN fails, automatic switching will be performed 
if the backup is in-service. If the OPEN on the backup fails, take 
backup out-of-service will become automatic. 



The DDSCTLA should point to the DDSIOA and vice versa. 
DCB should point to the DDSIOA and vice versa. 



The user's 



The DCBOFLGS must be set and the addresses of DDSREAD/WRITE , 
DDSNOTE /POINT, and DDS CHECK must be set in the user's DCB. 

Each DDSDECBA will be initialized and available for use in I/O 
requests. There will be a serial chain of available DDSDECBs minus 
the reserved DDSDECBs. 
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Figure 2-88 (1 Of 2) - DDS STOW Formatter 



Figure 2-88 (2 of 2). 
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The previous instructions of the STOW macro indicate which types of 
STOW macro is being issued. 

Set up type indicators by complementing registers as follows: 
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The external routine DPPSBFST will execute the actual STOW macro to 
both primary and backup (if in service) and returns the proper return 
code for the macro caller. 
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Figure 2-89 {1 Of 14) - DOS Input Message Processor Main Segment 



Figure 2-89 (2 of 14). 



Step 



Extended Description 



The message DDS NOT DECLARED will be output when the DDSNAME is not 
declared in the DDSCTLAs . 

Valid requests are STATUS, TAKE, CREATE, COMPARE, REPLACE, and 
SWITCH. The default is STATUS, and if the code is none of these, 
output the message DDS REQUEST NOT UNDERSTOOD. 

There is a processor HIPO chart for each internal processor: 
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Figure 2-89 (3 Of 14) - Take Backup Out-Of-Service Processor 
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2-89 (4 of 14). 



Step 



Extended Description 



Use the internal DDS LOCK function to inhibit the use by other tasks 
of this DDS until the function is completed. 

The routine DPPSTBOS will cause the backup to be taken out-of -service 
(if not already) and will set the DDSCTLA as such. 

Use the internal DDS UNLOCK function to release the LOCK on this DDS. 
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Figure 2-89 (5 Of 14) DDS Status Message Processor 
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The message indicating the DDSNAME, the primary DDNAME, and the 
backup DDNAME will also have the message OUT-OF-SERVICE. 

Ths message indicated in step 1 will be standard (indicating the 
backup is in service) . 
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Figure 2-89 (7 Of 14) - Switch Backup To Primary Processor 
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The DDS LOCK function is invoked to prevent other tasks from interfer- 
ing with the SWITCH operation. 

The internal routine DPPSSWCH will accomplish the switching of the 
DDNAMES and restart the I/O if necessary. 

Switching cannot be done if the backup was not already in service; 
if this is not true, output a message indicating that the switch 
could not be accomplished. 

The DDS LOCK function will be released to allow other tasks to con- 
tinue processing this DDS. 
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Figure 2-89 (9 Of 14) - Create Backup Processor 
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Figure 2 89 (10 of 14). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 CREATE function is prohibited in the read only mode. 

2 The external module DPPSCRBK will direct the actual COPY operation 
and bring the backup in-service. 

The DDSTATUS data set contains the latest information concerning the 
DDS declarations. The status message indicates the CREATE completed 
successfully. 

Either the backup was already in service or the COPY operation was 
unsuccessful. 
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Figure 2-89 (11 Of 14) - Replace Primary DDS Processor 
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Return To Meon Segment 

(Figure 2-89, 1 Of 14) 



Figure 2-89 (12 of 14). 
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The REPLACE function is invalid if a DDSDCB is already opened against 
the DDS. 

If the user did not enter a third parameter, the default will be to 
change the old backup to the new primary. In either case, the old 
primary will become the new backup. 

The REPLACE function automatically sets the backup in service. (This 
is consistent since the old primary will be the new backup - the user 
can bring the backup out-of-service with a subsequent TAKE command.) 

The new status will be output and the current DDS declarations (as 
changed by the REPLACE request) will be recorded on the DD STATUS data 
set. 



DPP065I 



DPP057I 



DPPSMSGI 



DPPSMSGI 



DPPSMSGI 



DPPSMSGI 



O 
m 
Z 
CO 

m 
O 

2 
> 
H 
m 



"U 

DO 

o 

■o 

m 

JJ 
H 
< 

O 
CO 

S 



to 

t 

CD 



ro 

ro 
ro 
o 



DPPSMSGI (Compare) 

Input 



Register 1 



A(DDSCTLA) 



A(End Of PROBL) 



A(Current PROBL) 



DOSCTLA 



From Main Segment (Figu re 2-89. 1 Of 14) 

Prooaa 





Set The Default Compare 
DDNAMES To That Of The 
Primary And Backup 



If The User Specified Hi* 
Own DDNAMES, Set Those 
As The Compare DDNAMES 



Output 



DDNAME List 



m 



LINK To The External 
Routine DPPSCMPR To 
Perform Actual Compare 



C 



DPPSCMPR 



DOS Compare 
Routine 2-83 




o 
m 
z 

CO 

m 
O 

2 
> 
H 
m 

33 
> 



33 
O 

•v 
m 
30 
H 
< 

O 

Tl 

53 
2 



Figure 2-89 (13 Of 14) - DDS Compare Processor 
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PDL Segment 



The default for the COMPARE request is the compare to primary data 
set against the backup. 

The user can specify his own DDNAMES and effectively compare any two 
data sets of like DSORG. 

The external DDS routine DPPSCMPR will direct the actual compare and 
the messages. 
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Figure 2-90 (1 Of 2) - DDS Take Backup Out-Of-Service 
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Figure 2-90 (2 of 2). 
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Extended Description 



Messages and 
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Another request may have taken the backup out-of-service before this 
module gains control. 

This message will indicate that the backup was taken out-of-service 
successfully, as requested. 

The backup DCB will be closed (asynchronously if opened by a different 
TCB) and the DDS status will be updated to reflect the change in 
serviceability of the backup. 
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Figure 2-91 (1 Of 2) - ODS Switch Backup To Primary 
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Figure 2-91 (2 of 2). 
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PDL Segment 



Switching is not possible if the backup is not already in service. 

When a DDSDCB is opened for input, these I/O requests will not have 
been issued for the backup. This needs to be accomplished since the 
backup will become the primary data set. 

The DDNAME within the DDS control area indicates which is primary data 
set and which is backup for the CONTROL and COPY functions. The back- 
up will be automatically taken out-of-service as part of the switch 
over function. 
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OUTPUT 
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If The DDS Is Not In Use Or If In Use 
As Output By A User Task, Update The 
Last Record Field Of The Backup DSCB's 



If The DDS Is In Use By A User Task, 
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Figure 2-92 (1 Of 2) - DDS Create Backup 
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The following fields will be updated in the backup DSCB: DSORG, RECF 
RECFM, OPTCD, KEYLEN, BLKSIZE, and LRECL . 

The primary EXCP will be opened for input, the backup EXCP will be 
opened for output, and the extents will be acquired from examining the 
Data Extent Block built by the OPEN. 

The buffer size will be found using the DEVTYP macro and the COPY 
operation will be track- to- track for every track in the extent. 

The last record field of the backup EXCP DCB (which would be pointing 
to the end of the extents as a result of the COPY operation) will be 
updated so that during the CLOSE the backup DSCB will be correctly 
updated . 

Each unchecked reserved DDSDECB for output or READ update will have to 
be restarted for the new backup. 
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Figure 2-93 (1 Of 2) - DDS Compare 
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The two compare DDNAMES should be supplied by DPPSMSGI, DDSCMPIN will 
replace SYSIN, and COMPRINT replaces SYSPRINT. 
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Figure 2-93.1 {l Of 2) DDS Real Time Copy 
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Extended Description 



The DDNAMEs of the 'from' and 'to f data sets should be in the TIOT. 



The following fields will be updated: DSORG, REGFM, OPTCD, KEYLEN 
BLKSIZE, and LRECL . 



The 'from' EXCP DCB will be opened for input, the 'to' for output, 
and the extents will be obtained from the DEBs . 

The buffer size will be determined using the DEVTYP macro and the 
copy operation will be track-to-track. 

The lost record field of the 'to' DSCB will be set according to that 
of the 'from' DCB. 
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Figure 2-94 (1 Of 2) • Asynchronous OPEN Or CLOSE 
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Figure 2-94 (2 of 2). 



Step 



Extended Description 



The parameters DDSIPARM and DDSIASVC are set by DPPSOPCL which builds 
an IQE and causes this routine to be dispatched via a related IRB. 
The task under which the IRB is running should be the same as the task 
that opened this DDS (this determination is made by DPPSOPCL). 

The particular request (OPEN or CLOSE) will have been set already by 
the module that had called DPPSOPCL. The SVC instruction code will 
be in the input parameter DDSIASVC. Either DDSDCB1 or DDSDCB2 will 
be opened or closed, depending oh the inputs. 

The ECB at DDSIAECB is the one the task for DPPSOPCL is waiting on. 
This results in a RETURN TO CALLER through the IRB path. 
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Figure 2-95 (1 Of 2) - Primary DDSDECB Determinator 
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2-95 (2 of 2). 
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This condition indicates that no switching has occurred since the 
execution of the READ/WRITE operation. 

This condition indicates that a switchover has occurred and that the 
old backup DDSDECB is the new primary DDSDECB. 

This condition indicates a logic error pertaining to this DDSDECB. 
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Figure 2-96 (1 Of 2) • Lock A DDS 
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Figure 



2-96 (2 of 2). 
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Step 



Extended Description 



The Special Real Time Operating System LOCK (defined by DPPSINIT) will 
be used while adding this LECB to the chain. 

The LECB will be posted when all previous DDS LOCKS are released and 
all current users unshare this DDS. 

The DDSX task chain is used to indicate that this DDS is locked out 
in case this task should be prematurely terminated. 

The message DDS NAME IS LOCKED will be output to inform the operator 
of the LOCK condition. 
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Figure 2-97 (1 Of 2) • DDS Output Message Processor 
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Figure 



2-97 (2 of 2). 
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Extended Description 



This chain will give the address of the SCVT from which it can be 
determined whether or not the Special Real Time Operating System 
message handler has been initialized. 

The number of variables in the message has been predefined with the 
offline utility DPPXUTIL. This message macro passes the maximum 
number of variables for DDS (5) . 
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Figure 2-98 (1 Of 2) - DDS OPEN/CLOSE For Primary/Backup 
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The SVC to be executed and the address of the task requesting the 
service are both in the DDSIOA input. 

The validation algorithm assumes that the priority of the task re- 
questing the service is less than or equal to the priority of the job 
step TCB. 

3 The IRB is obtained using the CIRB macro. 

4 The IQE contains the parameters for the subsequent routine DPPSASOC 
which will be entered asynchronously. 

The stage 2 exit schedules the IQE in step 4 to be executed at the 
next task switch. 

The WAIT causes a task switch yielding control to DPPSASOC under the 
IRB of step three. DPPSASOC posts the ECB in the DDSIOA when com- 
pleted. 
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Figure 2-99 (1 Of 2) - Recreate I/O To A DDS Backup 
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The OPEN parameters determine if POINT is allowed. The correct TTR can 
be obtained using the 0S/VS1 conversion routine for CCHHR to TTR 
against the primary DDSDECB IOB. 

2 Unchecked DDSDECB require no I/O restart. 

3 Each unchecked DDSDECB is chained sequentially according to the time 
that the I/O was issued, so the same order can be used for the backup 
DDSDECB. 
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Figure 2-100 (2 of 2). 
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The chain of DDS control areas is searched for one whose DDSI0A 
pointer matches the input (user's DCB DDSI0A pointer). Finding a 
match signifies that the data set is a DDS. 

2 No output is allowed in read only mode (backup computer) . 

3 The DDS is shared during the executions of the macro. If a CONTROL 
function is needed (switchover if an error occurs on the primary, or 
take backup out-of-service if an error occurs on the backup of out- 
put), an interim DDSLOCK is placed on the DDS until the CONTROL func- 
tion is completed. 
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Figure 2-101 {1 Of 2) - DDS Share Routine 
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Figure 2-101 (2 of 2). 
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The share chain must be locked while additions or modifications are 
being made to it. 

The LOCKING task will post all share ECBs waiting to share when it 
releases the DDS LOCK. 

Wh en this task unshares the DDS the share count will be decremented. 

If this task should ABEND, the DDS cleanup routine could unshare this 
DDS by examining the DDSXTCBC chain. 
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Figure 2-102 {1 Of 2) - DDS Search Routine 
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Figure 2-102 (2 of 2). 
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Each entry in the table should be checked, starting with the first 
and proceeding serially until the last entry. 

The caller will be notified by the contents of return register 15 
if a match was found. Zero indicates that the argument has no match 
in the table, while a nonzero value will be the address of the entry 
matching the input argument . 
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Figure 2103 (1 Of 2) - Unlock A DDS 
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Use the Special Real Time Operating System LOCK to inhibit other 
tasks from accessing the DDSLECB chain while being modified by this 
task. 

A task that is waiting to LOCK a DDS takes precedence over all tasks 
waiting to share that same DDS. 

The caller has the option of holding the DDSLECB chain in LOCK (by 
setting the high-order bit of register 1 on) so he may use other 
DDS modules to make further modification to the chain. The message 
indicates that the DDS LOCK has been released. 

The UNLOCK function should erase the LOCK pointer in this task's DDSX 
chain. 
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Figure 2-104 (1 Of 2) - Unshare A DDS 
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Figure 2-104 (2 of 2). 
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Use the Special Real Time Operating System LOCK to prevent other 
tasks from using the DDSSECB chain while it's being modified. 

Only after all current users are finished with a DDS can it be 
locked . 

The caller could have specified HOLD (setting the high-order bit of 
register 1 on) for further modifications. 

The share pointer to this DDS control area in this task's DDSX chain 
should be zeroed. 
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Figure 2-105 (1 Of 2) • Write DDS Status Record 
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Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



• 



If this is read only mode, output a message indicating that DDSTATUS 
WRITE cannot be executed, and if OPEN failed, output a message indi- 
cating such. 

Each DDS control area (DDSCTLA) should be output to contain all DDS 
declarations. If SYNAD occurs, output message indicating unable to 
update DDSTATUS. 

The message DDSTATUS HAS BEEN UPDATED will notify the operator that 
the DDS declarations have changed. 
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Figure 2-106 (1 Of 2) - DDS Task Chain Locator 
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Figure 2-106 (2 of 2). 



Step 



Extended Description 



The DDSXTCBCs are chained together and each one contains the address 
of its TCBX. 

Allocation of a DDSXTCBC is obtained only once per task, and it is 
initialized at allocation time. 

The address of the DDSXTCBC, either found or recently allocated, is 
returned to the user. 
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Supplementary Services 



The Supplementary Services functional area is composed of individual sub- 
routines each of which is entered by a macro call. These routines are not 
logically associated with any of the other functional areas but are used as 
subroutines by most of the functional areas. 
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Figure 2-108 (1 Of 2) • GETWA/FREEWA Branch Subroutine 



Return To Caller 



Output 



GETWA Storage Is 
Freed 



Return 
To 

Caller 



TMCT 



TMCTGFCB 
TMCTGFMB 



GFMB 



GFC8 



GFC8 



GFCB 



o 
m 
Z 
0J 

m 
O 

> 
H 
m 

u 

> 
r- 



•v 
u 
o 

-v 
m 

33 
H 
< 

O 
■n 

5 
2 



Figure 2-108 (2 of 2). 



Step 



Extended Description 



A GETWA SVC is issued. 

FREEMAIN services are indicated by register 15 being negative and 
equal to register 1. Register 1 contains the complement of the 
address to be freed, and register 0 contains the length. The 
FREEMAIN is issued and then control is returned to the user. 

GETMAIN services are indicated by register 15 being negative and not 
equal to register 1. The high-order byte of register 1 contains 



0 12 3 



GETWA 



4 5 6 7 



ID of GFMB needing expanding 



TYPE - 



00 - AP 

01 - AT 
10 - PC 



Additional GETWA space is obtained, a GFCB is created and initialized, 
and the GETWA is retried. If CBGET core could not be obtained, the 
GETWA storage is freed, and return code 8 is passed to the user. 

If register 15 is not negative, return is passed to the caller. 
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Figure 2-109 {1 Of 6) - G ETWA/F RE EW A 
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2-109 (2 of 6). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



The function (GET or FREE) is determined by register 1. If negative, 
the request is a GETWA. If positive, it is a FREEWA. A detailed 
description of the GETWA function is shown in Figure 2-109 (3 of 6) . 

A detailed description of FREEWA is shown in Figure 2-109 (5 of 6). 



The branch entry to GETWA is used by Special Real Time Operating 
System task management only (DPPTPMON) . It is used to free all AP and 
AT type GETWA storage allocated to a task, A detailed description of 
the branch entry function is shown on Figure 2-110. 
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Figure 2-109 (3 Of 6) - GETWA Function 
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2-109 (4 of 6). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



The size of the request is validity checked to ensure that the 
request is not for zero bytes. A zero request will not be honored, 
and a return code of 4 will be returned. 

Each GFMB is checked to see the block size it represents. If the 
blocks ize (GFMBSIZE) is equal to or greater than the requested size, 
the number of blocks available (GFMBFCNT) is checked. If there is a 
block available, a GFCB for the size with available blocks is located 
(GFMBGFCB) and a GFBE is taken from the free chain (GFCBGFBE) . The 
core address for the core represented by this GFBE is calculated. 

The GFBE for the core being allocated is then chained to the user 
TCBXTCWA for Type = AT 
TCBXQGWA for Type = AP 
TMCTEXGW for Type "PC 

The core address is placed in register 1. If a positive return code 
is being passed to the requestor, register 1 will be set to negative 
1 • 

If no core is available, register 15 is made negative and the high- 
order byte of register 1 is set up with a code for the tvpe and size 
as follows: 

High-order byte bits 

01234567 



GFMB ID for size 
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Figure 2-109 (5 Of 6) - FREEWA Function 
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Return To Caltor 



Retum The GFBE To The 
Free Chain (GFCBGFBG) 



Figure 2-109 (6 of 6). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



The GFCB that represents the storage to be freed (address falls 
within GFCBFRST-GFCBLAST) is located. If the address is not 
represented by a GFCB, it is invalid. The GFMB is then located, 
and the address is checked to ensure it falls on a block boundary 
for the blocksize (address/GFMBSIZE with no remainer) . If it is not 
on a block boundary, it is invalid. 

The GFBE is located for the specified core. 

If the allocated bit is on in the GFBE, the GFBE is dechained from 
its existing chain and added in to the GFCB free chain (GFCBGFBE) . 
If the allocated bit is not on, it is an invalid free request and 
the requestor is given a return code 4. If all blocks in the GFCB 
are now free, the GFCB is moved to the end of the GFMB chain. If 
the GFCB is not the initial allocation and all blocks are free and 
the total free count is larger than initial allocation and free count 
for this GFCB, the GFCB is dechained and freed. The compliment of 
the GETWA address is placed in registers 1 and 15 so that the branch 
subroutine (DPPTGWFW) will FREEMAIN the GETWA storage. 
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Figure 2-110 (1 Of 2) - GETWA Branch Entry 
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Figure 2-110 (2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



The GFBE is dechained from its existing chain. The GFBE ID field 
is used to calculate the GFMB which represents the core size. 
The GFCB address is obtained (GFMBGFCB) , and the GFCB owning the 
block is located and the GFBE returned to the GFCB free chain 
( GFCB GFBE ) . The address of the chain to be processed is passed to 
the branch entry by DPPTPMON in register 1. The processing terminates 
when this address points to itself (all GFBEs are removed from the 
chain). If all blocks in the GFCB are now free, the GFCB is mould 
to the end of the GFMB chain. If the GFCB is not the initial alloca- 
tion and all blocks are free and the total free count is larger than 
initial allocation and free count for this GFCB, the GFCB is dechained 
and freed. The storage represented by this GFCB is then FREEMAINed. 
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Figure 2-110.1 (1 Of 2) - GETWA Control Block Transfer 
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Figure 



2-110.1 (2 of 2). 



Step 



Extended Description 



The GFCBs are scanned to locate which one controls the GETWA area 
passed in register 1. 

A zero in register 0 indicates that this area is to be placed on 
the PC chain. 

A 4 in the high-order byte of register 1 indicates that the area is 
to be placed on the AP chain. 

An 8 in the high-order byte of register 1 indicates that this area is 
to be placed on the AT chain. 
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Figure 2-111 (1 Of 2) - CHAIN SVC 
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Figure 2-1 11 (2 of 2). 



Step 



Extended Description 



The addresses passed to CHAIN in the chain list (CHAINORG, CHAINBLK, 
CHAINECB) are checked. They must be within the partition (SCVTP1HI, 
SCVTP1L0). If two partition operation, they must be within either 
partition (SCVTP2HI, SCVTP2L0) . 

The block passed (CHAINBLK) is added to or removed from the specified 
chain (CHAINORG). If the first and add flags are on, the new block 
is added at the origin. If the add flag is on, the chain is scanned, 
and the new block is added to the end. If the order flag is on, the 
new block is inserted in the chain in ascending order by the value in 
the CHAINORD field. The chaining pointers in the blocks are dis- 
placed in the blocks by the value in CHAINNDX. If the add flag is 
off, the block is removed from the chain. 

The specified ECB is posted with the specified completion code from 
the chain list (CHAINECB) if the operation completed successfully, 
otherwise, the user is given a nonzero return code. 
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Figure 2-112 {1 Of 6) - CBGET SVC 
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Extended Description 



Messages and 
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Register 1 is checked to determine if the request is a CBGET or 
CBFREE. If register 1 is negative, the request is CBGET; if positive, 
the request is CBFREE. 

Blocks of protected storage (PQA Subpool 253) aire allocated to the 
requestors in 32-byte multiples (i.e., a request for 50 bytes will 
allocate 64). The requestor can have any PSW protect key; however, 
if he does not have zero, he will get a protection interrupt when he 
attempts to store in the allocated storage. The core will be cleared 
to zeros before it is allocated to the requestor. 

Blocks are returned to the pool of PQA by the CBFREE function. The 
freed core will be combined with any adjacent free core at the time 
it is freed. 
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Figure 2-1 12 (3 Of 6) - CBGET Function 
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Figure 2-112 {4 of 6). 



Step 



Extended Description 



The number of 32 byte blocks is determined by adding the size of a 
PSCB plus a rounding factor to the request size and dividing by 32- 
(request size + PSCBLNTH + 31) . 

The PSCB loop is entered at the block pointed to by the SCVT last 
used pointer (SCVTPLST) . A stop indicator bit is turned on so that 
the program will know when it has scanned the entire loop. The 
loop is scanned until a PSCB representing a number of 32 byte blocks 
equal to or greater than the requested number is found. 

If the PSCB has the exact number of blocks required to satisfy the 
request, the storage is allocated by complementing PSCB free count 
field (PSCBFCNT) , clearing the requested length of core, and returning 
the starting address to the requestor. If the PSCB contains more free 
blocks than are required, a new PSCB is built just above the core re- 
quired to satisfy the request, and the new PSCB is inserted into the 
circular PSCB chain. The new PSCB will represent a number of free 
blocks equal to the number in the old PSCB number required to satisfy 
the request. If the stop indicator is reached, there is not enough 
core to satisfy the request. The requestor is passed a return core 
of 4. The stop indicator is turned off and the last used pointer is 
updated. 

The core which has been allocated to a requestor is cleared to binary 
zeros for a length equal to the requested length the address is 
returned to the requestor in register 1. 
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Figure 2-112 (5 Of 6) - CBFREE Function 
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Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



The address passed to be freed (in register 1) is backed up by the 
PSCBLNTH value (a PSCB is built immediately preceding the core it 
represents). A check is made for the PSCBID field (hexadecimal 
'C9C4'> If the ID is valid, the address to be freed is valid. 

The storage being freed by this request is freed by storing the 
number of blocks being freed in the PSCBFCNT field. 

The next PSCB in the circular chain (PSCBNEXT) is interrogated to 
determine if it represents free core (PSCBFCNT nonzero). If it does, 
the number of blocks it represents is added to the current PSCB and 
the PSCBNEXT PSCB is removed from the circular chain. If it repre- 
sents allocated core (PSCBFCNT -0), the chain is not modified. 
The previous PSCB (PSCBPREV) in the circular chain is then checked 
to see if it represents free core. If it does, the number of free 
blocks in the current PSCB is added to the number of free blocks in 
the previous, and the current PSCB is removed from the circular chain. 
If the previous PSCB represents allocated core, the chain is 
unmodified. 
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Figure 2-113 (2 of 2). 



Step 



Extended Description 



Array DPPXFIX (VS array) is located by the GETARRAY macro 
array cannot be found, the FIX routine terminates. 



If the 



A BLDL is issued for the load 'module; if it is found, the module is 
loaded. If a fix length is specified, the length is added to the 
entry point address to get the fix length. If no length was 
requested, the module length as returned by the LOAD is added to the 
entry point. In either case, the address range is fixed via the 
DPPFIX routine. If the FIX is successful, the addresses are stored 
in the DPPXFIX array (PFIXLOAD and PFIXHIAD) . 

The numbered array is located via GETARRAY. If a length was 
requested, it is added to the start address to get the range to be 
fixed; if not, the entire array is fi x ed. If the FIX is successful, 
the fixed address range is put in the array DPPXFIX. 

Same as 3, for 'named' arrays. 



The control block to be fixed is specified in the name field where 
' CBGET ' is a request for the CBGET storage & 'GETWA' is a request for 
the GETWA storage. If a length was requested it is added to the 
start address to get the range to be fixed, if not the entire control 
block is fixed. If the FIX is successful the FIXed address range is 
put in the array DPPXFIX. 

A message is issued stating whether or not all arrays and load modules 
were fixed successfully. A user ABEND will result if an invalid 
address range is specified. 
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Figure 2-114 (1 Of 2) - Page Unfix Routine 
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Extended Description 



Array DPPXFIX is located with GETARRAY. A loop is set up to process 
each item in the array. If the PFIXHIAD is nonzero, the address 
range (PFIXLOAD - PFIXHIAD) is used with routine DPPFREE to unfix all 
previously fixed virtual storage. 



to 

CO 



Messages and 
ABEND Codes 



DPP047I 



PDL Segment 



DPPIPFRE 



O 
m 
z 
c/> 
m 
O 

> 
H 
m 

> 
r 



30 

o 

"O 

m 
J) 
H 
-< 

O 
■n 

55 
2 



DPPXDEFL 



Input 



DEFLOCK Macro Call 



Register 0 



Resource Name 



SCVT 






SCVTLKCB 




\ LOCKCBLK 


LOCKCBLK 




LOCKNEXT 




LOCKNEXT 






LOCK NAME 




LOCKNAME 










Output 



fT) Search For A Previously 
Defined LOCK Control 
Block 



LOCKCBLK 



If DEFLOCK Macro Was 
A TYPE-GET And A 
Previously Defined LOCK 
Control Block Was Found, 
Increment Count Of 
Requests 




LOCKCBLK 



CD If DEFLOCK Macro Was 
A TYPE-GET And No 
Previously Defined LOCK 
Control Block Was Found; 
Build, Initialize, And Add 
A New LOCKCBLK Onto 
The Chain Of LOCKCBLK* 



LOCKCNT 



SCVT 



If DEFLOCK Macro Was A 
TYPE-REL And A Previously 
Defined LOCK Control Block 
Was Found, Decrements Count 
To Requests 




SCVT 



LH If Count Is Less Than One, 
Remove LOCKCBLK From 
Chain And Free It 



SCVTLKCB 



Return To Calier 



Figure 2-115 (1 Of 2) - DEFLOCK Function 
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1 On entry to DPPXDEFL, register 0 contains the resource name. 

2 A CHAIN macro call is used to add the LOCKCBLK to the chain of 
LOCKCBLKs. 

A CHAIN macro call is used to remove the LOCKCBLK from the chain of 
LOCKCBLKs. 
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Figure 2-116 (1 Of 2) - LOCK Function 



5> 



Validate LOCK Control Block 
Address 



LOCKCBLK 



If It Is A LOCK Request And 
The Resource Is Available. 
Set LOCK FLAG 



LOCKCBLK 



If It Is A LOCK Request And The 
Resource Is Not Available, CHAIN 
A WAIT Control Block To The 
LOCKCBLK And WAIT 



LOCKFLAG 



LOCKCBLK 



If It Is An UNLOCK Request And 
Another Task Is WAITING On This 
Resource; UnCHAIN The First 
WAITC8LK And POST The Task 
That Is Waiting 



c 



LOCKWAIT 



WAITCBLK 



WAITNEXT 



LOCKCBLK 



Return To Caller 




Deleted 
WAITCBLK 



I 



Figure 



2-116 (2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



oo 



The resource name in register 0 must match the resource name in the 
LOCK control block pointed to by the address in register 1. 

The CHAIN macro is used to add the WAIT control block to the bottom 
of the WAITCBLK chain. 
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The input option flag in register 1 is used to indicate the desired 
PSW setting. This flag must conform to the bit settings that the 
MODESET PSW recognizes. (See 0S/VS1 Supervisor Logic SY24-5155.) 

DPPXSVCP builds an option flag based on the PSW setting at entry to 
DPPXSVCP. The user can then reset the PWS back to the original PSW 
by using these option flags as input option flags on another 
SETPSW SVC. 

Bit 7 of the JSCBOPTS field in the Job Step Control Block is set to 
allow this task to branch to the MODESET routine. 

MODESET is used to change the old PSW setting. 

Bit 7 of the JSCBOPTS field in the JSCB is reset to the state it was 
in at entry to DPPXSVC. 
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LICENSED MATERIAL - PROPERTY OF IBM 



High-Level Language Interfaces 

The Special Real Time Operating System routines provide an interface to 
allow PL/l and FORTRAN users to use most of the services provided by the 
Special Real Time Operating System. The interface routines are inde- 
pendent of the compiler level or the optimizing compilers. Figure 2-118 
lists the Special Real Time Operating System macros supported by the inter- 
face routines for PL/l. The macros in the following table are also sup- 
ported for FORTRAN, but there are no default structures. 
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Figure 2-118. Macro Supported by FORTRAN-PL/I Interface Routines 

All interface routines are invoked as shown in Figure 2-119. The param- 
eters are passed using standard linkage conventions to the assembler 
language interface routine. The interface routine adjusts the parameter 
list and then issues an execute form of the appropriate macro to invoke 
the desired service. After the service routine has completed execution, 
the interface routine stores the return code for use by the calling pro- 
gram and returns to the caller. 
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Figure 2-119 FORTRAN - PL/I Interface Structure 
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Figure 2-120 (1 of 2) Special Real Time Operating System High-Level Language Interface Overview 
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Figure 2-121 (2 of 8). 
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PDL Segment 



A combination 72 byte save area and 12 byte STAECORE work area is 
obtained after the caller's registers are saved in the save area 
pointed to by register 13. The save areas are chained together 
with register 13 becoming the base for the SAVEEM DSECT. 

Load parameter address. 

The high-level language SPIE exit is canceled and the address saved 
for the return logic. A STAE is issued to provide a means for 
freeing core should an ABEND occur due to an error in the user 
parameter list. 

The address of the Special Real Time Operating System XCVT will be 
located. 
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Figure 2-121 (4 of 8). 
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Based on the value of the ID, one of the following interface segments 
in DPPPIF will be entered: 

ID Interface Segments 

0 - PATCH 

4 - PT3ME 

8 - DEPATCH 
12 - REPATCH 
16 - GET/PUT ARRAY 
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Figure 2-121 (6 of 8). 
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Based on the value of the ID, one of the following interface segments 
in DPPPIF will be entered: 

ID Interface Segment 

20 - GET /PUT ITEM 

24 - GET/PUT BLOCK 

40 - MESSAGE 

44 - PUTLOG 

48 - GETLOG 

52 - DUMPLOG 

56 - RECORD 

60 - PATCH /WAIT 
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The EXIT macro frees the DPPPIF save area obtained by GETMAIN, marks 
the save area to indicate DPPPIF is done, reloads registers, and 
returns to the program via register 14. 
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The PATCH Supervisor Flags are relocated to their correct position in 
the parameter list. If the problem parameters are longer than 8 
bytes, they are moved to GETMAIN core, and the SUPFREEP bit is set to 
indicate the core is to be freed; otherwise, no move is performed. 
The addresses of both the old and new problem parameters are 
returned. 
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Figure 2-123 (1 Of 2) - High- Level Language PTIME Interface 
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The TYPE field determines the kind of PTIME SVC and the structure of 
the parameter list. For TYPE=0, a PTIME TYPE=RET is issued to 
obtain the current time of day and the address of the Special Real 
Time Operating System time array. 

The PATCH Supervisor Flags are relocated to their correct position in 
the parameter list. If the problem parameters are longer than 8 
bytes, they are moved to GETMAIN core, and the SUPFREEP bit is set to 
indicate the core is to be freed; otherwise, no move is performed. 
The addresses of both the old and new problem parameters are returned, 
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1 Load the DEPATCH purge option and the address of the task name 

2 Issue a DEPATCH SVC with passed DEPATCH parameters. 
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Figure 2-126 (2 of 2). 
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Load the address of GETARRAY / PUT ARRAY parameters and issue the 
GETARRAY-PUTARRAY macro. 

The return code in register 15 ( GETARRAY /PUTARRAY return code) will 
be stored in the GETARRAY /PUTARRAY parameters. 
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Figure 2-127 (1 Of 2) - High-Level Language GET/lPUTITEM Interface 
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Figure 2-127 (2 of 2). 



Step 



Extended Description 



Load the address of GETITEM/ PUTITEM parameters and issue 
a GETITEM/ PUTITEM macro. 

The return code in register 15 (GETITEM/PUTITEM return code) 
will be stored in the GETITEM/ PUTITEM parameters. 
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Figure 2-128 (1 Of 2) - High-Level Language GET/PUTBLOCK Interface 
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Figure 2-128 (2 of 2). 



Step 



Extended Description 



Load the address of GETBLOCK/PUTBLOCK parameters and issue a 
GETBLOCK macro. 

The return code in register 15 (GETBLOCK/PUTBLOCK return code) 
will be stored in the GETBLOCK/PUTBLOCK parameters. 
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Figure 2-129 (1 Of 2) • High- Level Language Message Interface 
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Step 



Extended Description 



Move action, wait flag, and message number to correct location 
in the message parameter. 

Issue a MESSAGE macro. 
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Figure 2-130 (1 Of 2) - High-Level Language PUTLOG Interface 
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Figure 2-130 (2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 Load parameters and issue a PUTLOG macro. 

2 The return code in register 15 (PUTLOG return code) will be 
stored in the PUTLOG parameters. 
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Figure 2-131 (1 Of 2) - High-Level Language GETLOG Interface 



Figure 2-131 (2 of 2). 
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Load parameters and issue a GETLOG macro. 
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Figure 2-132 (1 Of 2) - High-Level Language Record Interface 
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Figure 2-132 (2 of 2). 



Step Extended Description 



1 Load parameters and issue a RECORD macro for the parameters 
specified. 

2 Move RECORD return code to the return code field of the 
of the RECORD parameters. 
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Issue a DUMPLOG macro for the parameters specified. 
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Figure 2-134 (1 Of 2)- High-Level Language PATCH/WAIT Interface 
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Figure 2-134 (2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 An 0S/VS1 WAIT macro will be issued on the ECB passed. 

2 When the ECB is posted, pick up the post flags from ECB as 
a return code, and clear the post flags. 
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Figure 2-135 (1 Of 2)- FORTRAN Interface Copy 
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Figure 2-135 (2 of 2). 
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Load the address of 'from area addresses' into register 2. 

Load the address of 'to area addresses' into register 4. 

Move the contents of the 'from area' to the corresponding 
'to area 1 contents. 
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Figure 2-136 (1 Of 2) - FORTRAN Interface Or Bit (OR) Routine 
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Step 



Extended Description 



Register 15 will be loaded with the address of the byte 
to OR. 

Register 1 will be loaded with the address of the OR flags 

The byte to be ORed will be ORed with the user supplied 
OR flags. 
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Figure 2-137 (1 Of 2) - FORTRAN Interface And Bit (AND) Routine 
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Register 15 will be loaded with the address of the byte 
to AND. 
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Register 1 will be loaded with the address of the AND flags. 
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The byte to be ANDed will be ANDed with the user-supplied 
AND flags. 
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Figure 2-138 (1 Of 2) - FORTRAN Interface Address (IADDR) Routine 



Figure 2-138 (2 of 2). 



Step 



Extended Description 
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PDL Segment 



The address of the FORTRAN parameter address pointed to by 
register 1 will be loaded into register 0. 

On exit from the program, register 15 will be set to return 
code 0. 
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Figure 2-139 (1 Of 10) - High-Level Language PATCH Macro Interface Parameter Build Routine 
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Figure 2-139 (2 of 10). 



Step 



Extended Description 



As part of the BEGIN macro, the name DPPFPM is defined as an external 
name with an entry point equal to the CSECT name DPPPARM. In addi- 
tion, an 84 byte combination save area/work area (STAECORE) is ob- 
tained for use during execution of this routine. Register 13 is the 
base for this area. 

The high-level language error exits are temporarily overridden to 
ensure that the save area/work area obtained above is freed. The 
STAE routine forces a recovery to permit the subsequent entry of the 
high-level language STAE routine. 
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Figure 2-139 (3 Of 10) - High-Level Language PATCH Macro Interface Parameter Build Routine 
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Step 



Extended Description 



Test and set the reentry flag. 

If the reentry flag was on, locate the address of DPPTPMON entry 
point DPTPM0N2 from SCVT at location SCVTSB18. 
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Figure 2-139 (5 Of 10) - High-Uve! Language PATCH Macro Interface Parameter Build Routine 
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Step 


Extended Description 
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PDL Segment 
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If ABEND passed a work area, load address of DPPPARAM save area and 
move in the ABEND code from the STAE work area; otherwise store the 
ABEND code from register 1 to DPPPARM save area pointed to by 
register 2. 
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Figure 2-139 (7 Of 10) - High- Level Language PATCH Macro Interface Parameter Build Routine 
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Step 


Extended Description 
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ABEND Codes 
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If there is a work area from STAE, load the DPPPARM save area address 
(register 13). Free the work areas; otherwise search for DPPPARM 
save area. 
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Figure 2-139 (9 Of 10 ) - High- Level Language PATCH Macro Interface Parameter Build Routine 



Figure 2-139 (10 of 10). 



Step 



Extended Description 



The EXIT macro FREEMAINs the save area obtained at entry, marks 
the previous save area to indicate DPPPARM has completed, reloads 
the caller's registers, and returns via register 14. 
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Figure 2-344.1 (1 Of 2) -PL/1 Optimizing Compiler Initialization 



Figure 2-139.1 (2 of 2) 



Step 



Extended Description 



If "ISASIZE" external symbol exists and if it is not zero then use the value at ISASIZE, 
rounded to a double word, and place at ISALENG. If "ISASIZE" external symbol does 
not exist then use default size. 
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LICENSED MATERIAL - PROPERTY OF IBM 



Two CPU Operations 



The Special Real Time Operating System has facilities to allow for execu- 
tion in a two-CPU configuration where a job in the backup CPU monitors the 
performance of the online CPU. When either CPU recognizes that a failure 
has occurred, that CPU can request a failover, and the backup CPU becomes 
the online CPU. Failover can also be initiated by program request to 
facilitate scheduled maintenance or changes to the operational environ- 
ment. 

Failover/restart operates by copying the contents of virtual storage, the 
0S/VS1 job queue, and the SWADS for the one or two partitions that encom- 
pass the realtime job, into a disk data set. This is initiated by a 
WTFAILDS macro call from DPPINIT1. The write failover data set SVC rou- 
tine, DOMIRFLV, is responsible for ensuring that both partitions in a two- 
partition environment have issued the WTFAILDS macro. Then DOMIRFLV 
writes the failover data set. 

This data set can then be IPLed to accomplish the restart. 

The effect of IPLing this volume is to return the System/ 370 to the iden- 
tical state it was when the RESTART WRITE card was encountered in the 
SYSINIT Special Real Time Operating System initialization stream. 

The failover/restart bootstrap program, DOMIRBT, is responsible for restoring 
the virtual storage, the job queue data set, and one or two SWADS data sets 
to the identical state they were in when the restart was written. 

The continuous monitor feature of the Special Real Time Operating System 
is available in all systems having the failover/restart feature. 

The continuous monitor is started by patching a task with EP=DOMIRCMN. 
This can be done by a user program, by a PATCH card in the SYSINIT input 
stream, or by the CMON parameter on the RESTART card. 

The probe functions, DOMIRPRB, operates in the backup CPU and tests the 
online CPU (the continuous monitor) and is responsible for recommending 
failover when it gets a Continuous Monitor Recommended Failover signal or 
if the continuous monitor fails to change the bits on the static signal 
lines at the specified rate. 

Upon a system restart, any data base data sets supported by DDS must be 
closed and opened to account for any changes in the status of primary and 
backup DDS data sets. This is accomplished by an IRB scheduled under the 
job step task by DPPIIRB. This IRB executes program DPPDWRST, which closes 
and re-opens the data sets. 
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Figure 2-140 • Special Real Time Operating System Two CPU Operation Overview 
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Figure 2-141 - Failover/Restart Process Overview 



Figure 2-141 (2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



The MASTER (SLAVE) partition delays until the SLAVE (MASTER) partition 
issues the WTFAILDS macro. Execution then continues under the 
MASTER SLAVE partition. 

All of real storage, the protect keys, the SYS1 . SYS JOBQE data set(s), 
the SYS1.SYSWADS data set, the active entries in the SYS1.PAGE data 
set(s), and one or two SWADS (MASTER and SLAVE) data sets are copied 
to the DPP FAIL data set. The IPL1 and IPL2 records on track zero 
are modified to read in module DOMIRBT when the disk is IPLed. 

When the disk containing the data set named in the DPPFAIL DD card 
is IPLed, DOMIRBT receives control and restores real storage, the 
protect keys, SYS1. SYSJOBQE , SYS1.SYSWADS and the active SYS1.PAGE 
entries. SYS1.SYSP00L is not restored. Control is returned to the 
MASTER and SLAVE partitions just as it was when the original WTFAILDS 
was issued except that return code 4 is placed in register 15 and the 
restart flags in the XCVT are set to reflect an IPL of the failures/ 
restart data set on the same or a different CPU. 
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Figure 2-142 (1 Of 2) - Fai lover/Restart SVC - Load 1 
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2-142 (2 of 2). 
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Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



The SCVTFLG1 field is tested for two-partition operation. ABEND 
37 is issued if the other partition cannot be located. ABEND 38 is 
issued if another WTFAILDS is still in progress. ABEND 39 is issued 
if a realtime initialization has not been performed. An ENQ is 
issued on QNAME 'DPPINIT', and RNAME of the MASTER realtime jobs 
to determine if the other partition has reached its WTFAILDS yet. 
If it has, its ECB (in the SVRB) is posted; otherwise, this partition 
waits on an ECB in the SVRB that the other partition will post. 

The SLAVE partition waits on an ECB in the SVRB which the MASTER 
partition will post when the restart is completed. 
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Figure 2-143 (1 Of 4) - Fai lover/Restart SVC - Load 2 
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Figure 2-143 (2 of 4). 
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CO 



Extended Description 



If this is the SLAVE partition or if this job does not own restart/ 
write eligibility (CINFD table), control is passed to step 1, Figure 
2-143 (3 of 4). 

A work area the size of the maximum blockage of the device containing 
the failures/restart data set is obtained. Modules DOMIRWT (restart/ 
write) , DOMIRBT (restart bootstrap) , and DOMIRNIP (re-NIP) are 
loaded and page-fixed. The DOMIRBT header DOMBOOTH is initialized. 

All TCBs except the one under which D0MIRFL2 is executing are set 
nondispatchable using the TCBSYS bit. A loop is entered to test 
for all I/O complete by testing the UCBPST and UCBBSY bits of all 
UCBs. 

DOMIRWT is invoked via BALR to write the failures/restart data set. 

The return code from DOMIRWT is tested. Code 4 indicates that an 
IPL of the failures/restarts data set has occurred. If this is not 
a restarted CPU, DOMERCPY is loaded and BALRed to make copies (if 
any) of the failures/restart data set. 
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Figure 2-143 (3 Of 4) - Fai lover /Restart SVC - Load 2 



Figure 2-143 (4 of 4). 



Step 



Extended Description 



A message to indicate the success or failure of the failures/restart 
write is printed. 



If a SLAVE partition is waiting, its ECB is posted. 
The caller of DOMIRFLV is returned to via EXIT (SVC3) 
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Figure 2-144 (2 Of 4) 
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Messages and 
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ro 



As a non-OS/VSl environment exists (standalone I/O) during DOMIRWT's 
execution, certain precautions are taken to ensure that it can finish 
execution. The program check new PSW and machine check new PSW are 
saved and replaced with PSWs that point to recovery routines within 
DOMIRWT. The DAT box remains on throughout the execution of 
DOMIRWT. The control registers are saved in the DOMIRBT header. 

All of real storage from location 0 to the end (as determined from 
the CVT) excepting the 4K occupied by DOMIRBT and the first 2K of the 
work area are written to the failures/restart data set starting with 
the second track. The protect key of each block is saved and re- 
stored across each I/O operation to avoid changing the reference 
bit. 

The active entries on the paging data set(s) (those which could 
possibly be paged in) as preserved on the failures/restart data set. 
An LRA instruction is issued for all address space (2K at a time) de- 
fined in the PDDT. A paging data set entry is copied to the failures/ 
restart data set if either of the following conditions occurs on the 
LRA: 

a. The LRA indicates a page exception and the "valid bit" 
(bit 15) is set in the page table entry. 

b. The LRA indicates a valid translation and the change bit 
is off in the frame. 



DOMIRWT 
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Figure 2-144 (3 Of 4) 
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The entire contents of the JOBQUEUE and SYSWADS are copied to the 
f ailover/restart data set. Unless the partition is using SWA, the 
SWADS data set(s) are also copied. 

The two 2K blocks of DOMIRBT are written as one record on track 
zero of the f ailover/restart data set. The protect keys for all of 
real storage are saved and written as the second record oh track 
zero of the data set. 

The IPL1 and IPL2 records are adjusted to read DOMIRBT into the same 
real storage locations it was written from during the disk IPL. 
The PSW placed in the IPL1 record points to the first byte after 
the DOMIRBT header (real address) . 

The PSA is restored and control is returned to D0MIRFL2. A code of 
zero is passed in register 15 if the restart/write was successful. 
A code of 12 is passed if an error occurred with a subcode in 
register zero. If this is a restarted CPU, DOMIRBT will have 
entered DOMIRWT at location RESUME after restoring the environment 
as it was at restart/write. In this case, code 4 is returned to 
D0MIRFL2 . 
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Figure 2-145 (1 Of 2) - Failover/Restart Data Set Copy 
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A list of the output volumes (DPPFAILx) is constructed. All must be of 
the same device type and only one f ailover/restart data set can 
exist on a volume. In addition, a f ailover/restart data set cannot 
reside on the system residence volume that contains SYS 1. NUCLEUS. 

The data set is copied, track for track, using EXCP from the 
DPP FAIL volume to each DPPFAILx volume. 

The DOMIRBT header is adjusted on each output volume for new 

absolute disk addresses. The IPL1 and IPL2 records are also adjusted. 
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A check is made to determine if this CPU has enough real storage. 
If not, a X'18 f wait occurs. A set of page tables is constructed 
with 8K of valid address space: The first 2K of the PSA, the 4K of 
the DOMIRBT module, and the first 2K of the work area. Control 
register 0 and 1 are initialized, and the DAT box is turned on. A 
machine check in the restart bootstrap causes a X'E2' wait state. 
An unexpected program check causes a X'18' wait state or a X'19' 
wait state. The location of the Format #1 DSCB for the failover/ 
restart data set is read in and if the data set no longer exists, a 
X'F' wait state occurs. 

All of real storage is reloaded from the f ailover/restart data set. 
After real storage has been reloaded, the control registers are 
restored to their values at the time the f ailover/restart data set 
was written. 

DOMIRNIP is invoked via a BALK, to check for disks mounted on addresses 
different than they were at time the f ailover/restart data set was 
written. If DOMIRNIP indicates that a needed disk is missing, a 
X'd' wait state occurs. 

The paging data set(s), SYS1. SYSJOBQE, and SYS1.SYSWADS are restored. 
The SWADS data sets (MASTER and SLAVE) are restored unless SWA was 
used. 
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Figure 2-147 (1 Of 2) - ReNIP Routine 
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Conflict elements built for volumes which have moved to a different 
device address are built into the f ailover/restart work area. 

Conflicts are resolved by swapping the location of the UCBs and 
their pointers in the 2-byte lookup table. Thus, DEBs and other 
UCB pointers throughout 0S/VS1 still point to the same volume and IOS 
can still find the correct UCB based on device address. Device re- 
lated fields, e.g., UCBLCI, go with the UCB to the new location. 
Volume related fields, e.g., UCBDMCT , remain in the old location. 

A critical disk is one that is permanently resident and allocated. 
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If the continuous monitor is operating in duplex mode (no other con- 
tinuous monitor or probe) , a signal is sent to the backup computer 
via the direct control static data lines. The computer status panel 
is also driven (ready light). 

Delay is via STIMER. If a failover request external interrupt occurs, 
it is interpreted as a restart signal, and an XCTL is executed to 
DOMIRIPL (within DOMIRPRB) to cause the f ailover/restart data set to 
be IPLed. 

If any of the participating data base locations have failed to change 
during two time intervals, failover is recommended to the backup 
computer by sending X'F' on the static data lines. 

If the data base locations start to change again, the sampling 
process is restarted. 
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Figure 2-149 {1 Of 2) - Probe Function 



Figure 2-149 (2 of 2). 



Step 



Extended Description 



An ENQ is issued to test for the presence of another continuous 
monitor or probe. The module terminates if another one is present. 

The ready light on the status panel is driven, and a delay for the 
SYSGENed time interval is instigated via the STIMER function. 

The static lines are tested via READ-DIRECT. If they have changed, 
the STIMER loop is reissued. If they have failed to change for two 
STIMER cycles, the failover recommend signal is sent to the computer 
status panel. 

The failover confirmed signal from the status panel can occur in 
response to the failover recommend signal or asynchronously at any 
time. If the probe was entered at DOMIRPLK, it simulates a hardware 
IPL to the f ailover/restart data set. If the probe was entered at 
DOMIRPWT, it returns with code 4 in register 15. The IPL of the 
failover/restart data set can also be entered (from DOMIRCMN) at 
DOMIRIPL. 

If the static data lines start to change again while awaiting the 
failover confirmed interrupt, the STIMER loop is reentered. 
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Figure 2-150 (1 Of 2) - Data Base Create IRB Routine 



Figure 2-150 (2 of 2). 
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Extended Description 



When entered, register 1 will contain an OPEN/CLOSE flag. If regis- 
ter 1 contains a 0, all data base data sets are closed, and if 
register 1 contains a one, all data base data sets are opened. 

A CIRB macro will be executed to create an 0S/VS1 IRB under which 
the OPEN/CLOSE routine (DPPDWRST) can run. 

The IRB will be scheduled under the job step task to facilitate the 
opening or closing of the data base data sets because the initializa- 
tion task under which DPPIIRB runs, terminates at the end of initiali- 
zation. DPPIIRB will wait for the OPEN/CLOSE routine to complete. 

When the CIRB macro is executed, it points to a segment in DPPIIRB 
which links to the OPEN/CLOSE routine. On return from the link, 
this segment will post the ECB that DPPIIRB is waiting on. 
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When DPPDWRST is entered, register 1 will point to a double word. 
The first word contains an ECB which is being waited on by DPPIIRB, 
and the second word contains an OPEN/CLOSE flag. If the second word 
is 1, all the data base data sets are opened, and if the second word 
is 0, all the data base data sets are closed. 

All the data base data sets in the system are opened or closed ac- 
cording to the OPEN/CLOSE flag pointed to by register 1. 

A BLDL will be executed to retrieve the @INIT data base directory 
entry. If the DBDIBUPD field in the @INIT entry is different from 
the DBDIBUPD field in the Data Base DDNAJME Table, message 9 will be 
issued. 
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Offline Utility 

The offline utility is primarily designed to control the offline main- 
tenance of the data base, message, and user-associated data sets used 
during online execution. Through an interface with the 0S/VS1 utility, 
IEBUPDTE, source data sets, which serve as input to the online data set 
build, may be updated by the offline utility. Online data sets are up- 
dated through an interface which will invoke the appropriate final phase 
processor for the area (data base, messages, or user) being modified. 
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Figure 2-154 (2 of 30). 
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GETMAIN is used to obtain a storage area for register save area and 
for work space. The area is cleared to contain all binary zeros. 

The execute card parameters may specify the use of assembler H or 
the 0S/VS1 assembler and may specify that input to the assembler be 
preceded by a PRINT GEN or a PRINT NOGEN. Default options are the 
0S/VS1 assembler and PRINT NOGEN. Specifying invalid options will 
result in setting the default options and a parameter error flag. 

Initialize read buffers, IEBUPDTE parm list, assembler parm list, 
loader parm list, sequential input DCB , and PDS input DCB areas of 
the work area. 

Issue STAE SVC to prepare for cleanup processing in case of an 
ABEND. 
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Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 The SYSPRINT and SYSIN data sets are opened. 

2 If SYSPRINT does not open, register 15 is set to 16, and error exit 
processing is performed. 

If SYSPRINT is open, the DPPXUTIL header message is written to 
SYSPRINT. 

If errors were found in the execute card parameters, a message 
indicating that default options are used is written to SYSPRINT. 
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Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



If the SYSIN DCB is not open, a missing DD statement message is 
written to SYSPRINT, return code 12 is set in register 15, and error 
exit processing is performed. 

The input buffer is checked for a control card. If no control card 
is present, a GET is issued to obtain the first card from SYSIN. 
When the end-of-file is read from SYSIN, the message SYSIN END-OF- 
FILE is written to SYSPRINT. 

The card now residing in the input buffer is written to SYSPRINT. 
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Step 



Extended Description 



If the card in the input buffer is not a control card, print a 
message that the first card must be a control card. Read and flush 
cards from SYSIN until a control card or an end-of-file is reached. 

If the card in the input buffer is a control card, go to the control 
card validity check routine. 

If the control card is valid, the CONTROL CARD ACCEPTED message is 
written to SYSPRINT. 

If the control card is not valid, the SKIPPING FOR NEXT CONTROL CARD 
message is written to SYSPRINT. 
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Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 The utility data set described by the SYSUT4 DD statement is opened. 

2 If the SYSUT4 DCB does not open, a missing DD statement message is 
written to SYSPRINT, return code 12 is set in register 15, and error 
exit processing is performed. 

If the NOGENFLG is set, a PRINT NOG EN card is written to SYSUT4. An 
area definition macro card is constructed from the input control card 
and written to SYSUT4. If the operation is an online data set build, 
control is passed to the input processing control routine for online 
data set build. 

If the operation is a source data set update, control is passed to 
the IEBUPDTE interface routine for source data set update. 
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Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



If end-of-file has not been reached on SYSIN, go back and process next 
control card. 

If end-of-file has been reached on SYSIN, write the UTILITY ENDED 
message to SYSPRINT, CLOSE SYSPRINT and SYSIN, and set return code 
0 in register 15. 

If a data base operation was performed, link to DPPXDBIN to build 
the data base initialization array, @INIT. 

Free the gotten work area. 
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1 


The control card is checked for a valid operation field. A message 
is written to SYSPRINT if the operation is omitted or incorrect. Set 
bypass if message written to SYSPRINT. 
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The operand specified for AREA is validity checked.* 




DPPXUTIL 




2 


The operand specified for OPTION is validity checked.* 
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The operand specified for INPUT is validity checked.* 
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The operand specified for TYPE is validity checked.* 
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Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 The operand specified for NEWSET is validity checked.* 

2 The operand specified for OLDSET is validity checked.* 



*Messages written as a result of this validity checking are 

WRONG PARAMETER 
MULTIPLE KEYWORD 
PARAMETER IN ERROR 
WRONG KEYWORD 

NEWSET SPECIFICATION MISSING 
OLDSET SPECIFICATION MISSING 
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Perform external interfaces with assembler, loader, and final phase 
processor . 
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Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 Control is passed to the input READ /WRITE routine, 

2 Link to IEBUPDTE to update the source data set. 
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Step 



Extended Description 



READ input from SYSIN and WRITE input cards to SYSUT4. The message 
END- OF- FILE ON INPUT DATA SET is written to SYSPRINT when the end- 
of-file is read on the input data set. 

If online data set build operation, write appropriate area definition 
END macro to SYSUT4. 
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Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



If Assembler H was specified, the input cards on SYSUT4 are assembled 
by the Assembler H. 

If the 0S/VS1 Assembler is specified, the input cards on SYSUT4 are 
assembled by the 0S/VS1 Assembler. 

If the assembler return code in register 15 is greater than 16, 
DPPXUTIL ABENDS with ABEND code 55. 

If the assembler return code in register 15 is 8 or greater, the 
PROCESSING ABORTED DUE TO BAD RETURN CODE FROM ASSEMBLER message is 
written to SYSPRINT. 
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Extended Description 



Messages and 
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The assembled object deck is loaded into storage by the LOADER. A 
return code is returned in register 15. 

If the return code is 8 or greater, the PROCESSING ABORTED DUE TO BAD 
RETURN CODE FROM LOADER message is written to SYSPRINT. 

A link is performed to the final phase processor for online data set 
build. The name of the final phase processor is not known. The 
address of a program name is contained in the loaded assembler output. 
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Step 



Extended Description 



GETMAIN is used to obtain a register save area and work area. The 
address of the input parameter list is saved in the work area. 

The data base final phase processor branch routines are LOADED into 
storage. 

The DATA BASE FINAL PHASE PROCESSOR ENTERED message is written to 
SYSPRINT and the data base PDS is OPENed. 

If the OPEN fails, the UNABLE TO OPEN DATA BASE PDS message is 
written to SYSPRINT, register 15 is set to 16, and error exit process- 
ing is performed. 
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Step 



Extended Description 



GETMAIN is used to obtain buffers for input and output. The 
addresses of the buffers are saved in the work area. 

If arrays have been defined in the input load module, GETMAIN is 
used to obtain storage for new directory entries. Otherwise, the 
message NO ARRAYS DEFINED is written to SYSPRINT, register 15 is 
set to return code 8, and error exit processing is performed. 

If the processing option is ADD, go to the ADD array routine. 

If the processing option is DELETE, go to the DELETE array routine 
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Step 



Extended Description 



If the processing option is REPLACE, set the replace flag in the work 
area, go to the DELETE array routine, and go to the ADD array routine, 

If the processing option is TEST, set the test flag in the work area, 
go to the DELETE array routine, and go to the ADD array routine. 
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Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



If the processing option is invalid, the test mode flag is set in the 
work area, and the message, INVALID OPTION-TEST ASSUMED, is written 
to SYSPRINT. DELETE array and ADD array processing is performed. 

The second load of the data base final phase processor is entered via 
a LINK SVC to complete data base processing. 
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Step 



Extended Description 



Set data base processed indicator in the input parameters to tell 
DPPXUTIL that data base processing was performed. 

The DATA BASE FINAL PHASE PROCESSOR COMPLETED message is written to 
SYSPRINT, the save work area is freed, and the return code is set 
in register 15. 
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1 BLDL is used to locate the refresh array on the data base PDS. 

2 If the BLDL return code is 4, the refresh array does not exist, 
and a new refresh array is constructed. 

If the BLDL return code is 0, the existing refresh array is read 
from the data base PDS and updated. 
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ARRAY BLOCKSIZE TRUNCATED, is written to SYSPRINT. 

If the data size is greater than the array blocksize, truncate 
the data to the array blocksize. The message, DATA TRUNCATED, 
is written to SYSPRINT. 

If a block number is defined out of sequence, default the block 
number to the next sequential block number. The message, BLOCK 
NUMBER ERROR, is written to SYSPRINT. 
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Extended Description 



WRITE the direct access array data to the direct access 
data set. 

If the number of blocks written is greater than the array 
block count, truncate all excess data blocks. The message, 
BLOCK COUNT EXCEEDED, is written to SYSPRINT. 
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Figure 2-158 (2 of 4). 




Messages and 
ABEND Codes 



PDL Segment 



GETMAIN is used to obtain a register save area and work area. 

The DDNAME of the logging array data set is moved to the 
direct access DCB. 

The direct access DCB is opened. 

If the direct access DCB does not open, test mode is entered, 
and the UNABLE TO OPEN DDNAME message is written to SYSPRINT. 
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Extended Description 



Calculate the block count of the logging array. 
Calculate the blocksize of the logging array. 

Calculate the number of logging array blocks required to contain one 
copy of the loggable array. 

CLOSE the opened direct access DCB. 
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The address of the parameters passed by the offline utility (DPPXUTIL) 
will be retrieved from register 1. 

If messages are to be deleted, delete the requested message from the 
message data set. 

When messages are requested to be added to the existing message data 
set, an error message, MESSAGE DATA SET ALREADY CONTAINS DPPnnn, will 
be printed. 

All entered messages (DEFMSG expansions) will be printed. If a 
message is to be replaced and it already exists on the message data 
set, the old copy of the message will be printed. 

The ADD and REPLACE options cause all entered messages (DEFMSG ex- 
pansions) to be added to the message data set. 
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Figure 2-160 (1 Of 4) - Build Data Base Initialization Array 



Figure 2-160 (2 of 4). 



Step 



Extended Description 



The user-defined partitioned data set defined by the DBINIT DD 
statement contains data base arrays as members. 

The @INIT member must have been built previously by the data base 
final phase processor, DPPXDBAT. 

The information from the directory entries of the members (arrays) 
and the data associated with each directory is used to construct the 
Primary and Secondary Array Locator Tables for each array, the Direct 
Access DCB Table for each direct access array, and a Logging Control 
Block for each loggable array. If a log array cannot be located for 
each loggable array, the job step is ABENDed with code 53. 
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Figure 2-160 (3 Of 4) - Build Data Base Initialization Array 
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The VS resident arrays are arranged by a use code (1 to 7), for pag- 
ing consideration. Within each use code, the arrays that require a 
page boundary are sorted. Then the arrays that request minimum 
boundary crossovers and the other arrays are filled into the slots 
left by the arrays with page boundary requests to prevent core 
fragmentation. The relative displacement of each array is placed 
in the Primary Array Locator table. 

The data base control blocks are written to the DBINIT data set. The 
Secondary and Primary Array Locator Tables are grouped together to 
be read into protected storage during real-time execution and the 
Directed Access DCB table and the Logging Control block are grouped 
together to be read into user storage. If the STOW receives a non- 
zero return code, the job step is ABENDed. 
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Figure 2-161 (1 Of 24) - Main Control Routine 
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ABEND Codes 



PDL Segment 



GETMAIN is used to obtain storage area for register save area and 
for work space. The area is cleared to contain all binary zeros. 

2 The SYSPRINT and DBINIT data sets are opened. 

3 If SYSPRINT does not open, register 15 is set to 16, and error exit 
processing is performed. 

If DBINIT does not open, register 15 is set to 12, the message 
UNABLE TO OPEN DBINIT is written to SYSPRINT, and error exit process- 
ing is performed. 
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Figure 2-161 (3 Of 24) - Main Control Routine 
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Extended Description 



If SYSPRINT and DBINIT are successfully opened, the DATA BASE COMPRESS 
STARTED message is written to SYSPRINT. 

BLDL is used to locate the data base initialization array to deter- 
mine if DBINIT defines a valid data base PDS. A return code is 
returned in register 15. 

Return code 4 indicates that the initialization array could not be 
found. The INVALID DATA BASE DATA SET message is written to SYSPRINT, 
and error exit processing is performed. 

Return code 8 indicates an I/O error from BLDL. The PERMANENT I/O 
ERROR message is written to SYSPRINT, and error exit processing is 
performed . 

Return code 0 indicates that DBINIT is a valid data base PDS. The 
CNTLTABL routine calculates the size and GETMAINs the storage for 
the Compress Control Table. 
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Directory entries are read from the data base PDS. Data is moved to 
the Compress Control Table from the directory entry for each direct 
access resident array. 

The direct access control record for each direct access resident 
array is moved into the Compress Control Table entry that contains 
directory data for that array. 

The Compress Control Table entries are sorted by the DDNAME con- 
tained in the direct access control record portion of the Compress 
Control Table. 

Data base BDAM data sets are compressed by moving direct access 
resident arrays. 
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The DATA BASE COMPRESS COMPLETED message is written to SYSPRINT, 
return code 0 is set in register 15, and SYSPRINT and DBINIT DCBs 
are closed. 

The Compress Control Table area of storage is freed. 
The work area and the register save area are freed. 
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Figure 2-161 (12 of 24). 



Step 



Extended Description 



READ directory blocks from data base PDS into a directory block 
buffer. 

The directory entries in each directory block are searched for direct 
access resident arrays. 

The direct access control record TTR, the array block count, and 
the array blocksize are moved from the directory entry to the Com- 
press Control Table. 
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Figure 2-161 (13 Of 24) - READCNTL - Read Direct Access Control Records 
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Get the direct access control record TTR from the Compress Control 
Table. 

READ the direct access control record from the data base PDS and 
put it into the Compress Control Table. 
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The Compress Control Table entries are sorted in ascending alpha- 
numeric sequence on the DDNAME field (DBDANAME) . 
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Figure 2-161 (17 Of 24) - MOVARAYS - Move Direct Access Arrays 
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The DDNAME is moved from the Compress Control Table to the direct 
access DCB. 

2 The direct access DCB is opened. 

3 If the OPEN of the direct access DCB is not successful, the UNABLE 
TO OPEN DD STATEMENT message is written to SYSPRINT. Processing will 
continue with the next Compress Control Table entry with a different 
DDNAME . 

4 The SYSUT1 DCB is opened. 

5 If the OPEN of the SYSUT1 DCB is not successful, the UNABLE TO OPEN 
SYSUT1 message is written to SYSPRINT, return code 8 is set in 
register 15, and error exit processing is performed. 
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to the SYSUT1 data set. 

2 The DDNAMEs in the DA DCB and the SYSUT1 DCB are exchanged. 
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DPPXDB39I 



DPPXDBCP 



DPPXDBCP 
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DPPXDBCP 
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Figure 2-161 
(19 Of 24)i 



CNTLTABL 




Process 



m 



READ Direct Access Array 
Data From Direct Access 
DCS Data Set 



DA DCB 
Data Set 



WKAREA 



WKDATABF 



WRITE Direct Access Array 
Data To SYSUT1 DCB 
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Figure 2-161 (23 Of 24) - READWRIT 



Return To Figure 2-161 
(19 Of 24) 
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Figure 2-161 (24 of 24). 



Step 



Extended Description 



Control Data is taken from the Compress Control Table and used in 
reading direct access array data from the data set defined by the 
DA DCB. 

The direct access array data is written to the data set defined 
by the SYSUT1 DCB. Direct access control data is updated in the 
Compress Control Table. 



Messages and 
ABEND Codes 



PDL Segment 



DPPXDBCP 



DPPXDBCP 
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Playback Routine 

The playback routine is used in an offline environment to convert, format, 
and print data recorded during online execution. The data played back was 
created using the RECORD facility of the Special Real Time Operating 
System, 
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DPPXNRTI 




Process 



Output 



Retrieve Address Of Playback 
Parameters 



Move Playback Parameters To 
A Work Area And Load 
Register 1 With The Address 
Of The Work Area. 



LINK To Date Playback Con- 
version Routine (DPPXPCON). 



DPPXPCON 



Parameter 
Conversion 
Routine 
Figure 2-73 



Return To 
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Figure 2-162 (1 Of 2) - Data Playback Non-Real Time initialization Routine 



Figure 



2-162 (2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 Retrieve the address of playback parameters from register 1. 

2 All playback parameters will be moved into a work area built by 
DPPXNRTI. The address of the work area will be stored in register 1 

An 0S/VS1 LINK macro will be issued to the data playback conversion 
routine (DPPXPCON) . 



DPPXNRTI 
DPPXNRTI 

DPPXNRTI 
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SYS GEN Utility 

The stage I SYSGEN Utility uses software option and hardware configurations 
specifications as input. The output is a printed listing and the job 
stream for stage II of SYSGEN. The job stream, when executed creates a 
Special Real Time Operating System. 
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D0MXSTG1 
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SCHEDULAR 
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Figure 2-163 (1 Of 2) - Stage 1 SYSGEN Utility 



Figure 2-163 (2 of 2). 



Step 



Extended Description 



The CPU ID is of the form System/ 370xx or System/7xx where xx is any 
decimal number from 01 to 99. If an error is detected, issue message 
INVALID PARM FIELD. 

The correct members are: 

A. The member of the configuration data set named in the PARM 
field. 

B. All other configuration members named in the first or 
subsequent configuration member (s) CONFIGH child param- 
eters*. 

C. The member of the S0FT0PT data set named in the PARM field. 

*Multiple CONFGH members will be used only if the System/370 Energy 
Management System Program Product (5740-U11) is being generated. 



Messages and 
ABEND Codes 



PDL Segment 



D0MXSTG1 



D0MXSTG1 
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SAMPLE PROGRAMS 

The Special Real Time Operating System sample programs provide a minimal 
test of the functioning of the Special Real Time Operating System. The 
primary program, DPPZSAMP , exercises the following functional areas: 

Task Management 

Time Management 

Data Base Management 

Message Handler 

The secondary program, DPPSAMP1, is used to substantiate the functioning of 
test management and time management routines by issuing message 66 whenever 
entered as the result of PATCH or PTIME macro call. 
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Figure 2-164 (1 of 2) Special Real Time Operating System Sample Program Overview 
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DPPZSAMP 



Input 



Sample Program 
Array (DPPZSAMP) 



Item DPPSAMP2 



Entry Via A PATCH Macro Call 

Process 




PATCH/Msg 
2-166 



[Tj PATCH DPPSAMP1 (Sample Program 
PATCH) 

Entry Routine 



If PATCH Successfully Issued 
Issue System Message 68 



o 



a 



G ETA R RAY for DPPZSAMP Array. 
If Array Retrieved Display Array 
Contents Via System Message 66 



Log Out Array DPPZSAMP 



If Array Logged Out Issue System 
Message 68 



Log In Array DPPZSAMP 



If Array Logged In Display Array 
Contents Via System Message 66 



PUTARRAY DPPZSAMP 



If PUTARRAY Issued Issue System 
Message 68 



GETITEM For Item DPPSAMP2 



If GETITEM Issued Issue System 
Message 69 



PUTITEM For Item DPPSAMP2 



If PUTITEM Issued Issue System 
Message 68 



Issue PTIME For DPPSAMP1 



If PTIME Macro Successful Issue 
System Message 68 



Return To Caller 
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Figure 2-165 (1 Of 2) - Special Real Time Operating System Sample Program 



Figure 2-165 (2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



1 The sample program will PATCH task DPPSAMP1 at entry point DPPSAMP1 

2 Array DPPZSAMP will be retrieved from the data base by ar GETARRAY 
macro. 

A. Array DPPZSAMP will be logged out by the PUTLOG macro. 

B. Array DPPZSAMP, contents of the array logged, will be logged 
in by a GETLOG macro. 

C. Array DPPZSAMP, contents of the array logged, will be placed 
back in the data base by a PUTARRAY macro. 

Item DPPSAMP2 will be retrieved from the data base by a GET ITEM macro. 

A. Item DPPSAMP2 contents retrieved by the GETITEM in step 3 
will be placed in the data base by a PUTITEM macro. 

A PTIME macro will be issued to cause task DPPSAMP1, at entry point 
DPPSAMP1, to be patched three times at 1-second intervals. 
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Return To Caller 




Figure 2-166 (1 Of 2) - Sample Program PATCH Entry Routine 



Figure 



2-166 (2 of 2). 



Step 



Extended Description 



Messages and 
ABEND Codes 



PDL Segment 



Issue message 28 to indicate the sample program has been entered. 
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Section 3. PROGRAM ORGANIZATION DESCRIPTION 



The Program Organization section of the System Logic Manual describes the 
method of implementation of the functions described in Section 2. 
This is done through Program Design Language (PDL) representation 
of ,each member of source code that comprise the Special Real Time Operat- 
ing System. PDL provides a more detailed insight into the logic flow of 
the individual programs and closely resembles the actual program structure. 
This section is intended to be an intermediary step and to aid in the 
transition from the functional overview of the logic descriptions (Section 
2) to the program listings themselves. The HIPO charts in Section 2 can 
be used to tie a function in question to one or more program segments. The 
PDL charts in this section can then be used to pinpoint the area of con- 
cern within the referenced segment (s). Neither the HIPO charts nor the 
PDL charts are intended to be a subset of the other; nor is either a one- 
to-one mapping of the other. They support each other and should be used 
together to fully understand the logic flow of the program. 

In some cases, several members of source code are combined, by use of COPY 
statements, into one assembly. A cross-reference of source members that are 
COPYed into base CSECTs is provided in Appendix A. A cross-reference of 
module names to HIPO and PDL charts is provided in Appendix C. A 
cross-reference of ABEND codes and message numbers to module names can be 
found in the Description and Operations Manual. All ABEND codes and message 
numbers used (directly or indirectly) by a module are defined in the ex- 
tended description of the HIPO chart for that module. The actual ABEND 
code or message number issued by a particular segment (e.g., a common sub- 
routine) may, in some cases, be ascertainable only in realtime execution. 
Therefore, not all PDL segments will reference a specific ABEND code or 
message number. 

For ease of use, the following PDL charts have been arranged in alpha- 
betical order. 
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Figure 3-1. DOMICEXT 

OCPICEXT MAIN SEGMENT 



01 INCLUDE DPPICINF 

01 EXTA NUMERIC /* VALUE FOR IPPS EXT« 

01 EXTB NUMERIC /*VALUE FOR FAIL SELECT EXT*/ 

01 /* THIS MODULE IS ENTERED IN PLACE OF THE OS EXT FLIH*/ 

01 IF EXTA IS ON THEN 

02 IF 'TIME SYNC OPTION IS SELECTED IN A JOB STEP • THEN 

03 • POST TIME SECTION* 
02 END IF 

01 ENDIF 

01 IF EXTB IS ON THEN 

02 IF ■ PROBE FUNCTION IS RUNNING* THEN 

03 'POST PROBE" 
02 ENDIF 

01 ENDIF 

01 'PASS CTL TO OS/VS EXT FLIH' 



ENpSEGMENT DOMICEXT 



Figure 3-2 (1 of 2). DOMIRBT 

DOMIRBT ENTERED VIA HARDWARE IPL 
SET UP TEMP AODR TRANS TABLE 
TURN CN DAT BOX 

WAIT STATE CODE 'F* IF DSCB FOR F/R DATA SET NOT THERE 
IF CONSCLE ADDR FURNISHED 
01 WRITE OUT MESSAGE THAT RESTART HAS OCCURED 
END IF 

UNTIL TC END OF REAL STORAGE 



01 


IF READ ADDR NOT FIRST PART BOOT 


01 


IF RED NOT SECCND PART BOOT 


01 


IF NOT ADDR WORK AREA 


02 


READ BLOCK CF PEAL STORAGE 


02 


IF FIRST BLCCK REAL 


03 


SAVE PC NEW/MC NEW 


03 


PUT WAIT STATE PSWS AT PC AND 


02 


ENDIF 


02 


GET AMT READ 


02 


IF BLOCKS NCT 2K MULT 


03 


QUIT-DROP DEAD WAIT 


02 


ENDIF 


02 


GET NEXT READ ADDR 


01 


ELSE 


02 


UP REAC ADDR 2K 


01 


ENDIF 



ENDDO 

ALL REAL STORAGE IN — GET FULL CTL REGS 

READ PROTECT KEYS 

UNTIL END CF REAL STORAGE 
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Figure 3-2. (2 of 2). DOMIRBT 



01 SET KEY IN REAL STORAGE 
END 00 

TO RENIP TO ADJUST UCB S 
IF CRITICAL DISK MISS ING 
01 CODE 3 WAIT STATE 
ENDIF 

DO COPY FOR PAGING CAT A SETS 

UNTIL ALL JOEGtSWADS PROC 
01 COPY AN EXTENT OF JOBQ v SWA DSt SYS WADS 
01 SET NEXT EXTENT PTR 

ENDDO 

IF OS/VS CLOCK CMP SUPPORT 
01 IF CLCCK SET OR 

01 IF CLOCK NOT SET 

02 ADJUST CLCCK CMP RESTORE VAL 

02 WHILE TQE S REMAIN 

03 ADJUST TOX IN TQE 
03 GET NEXT TQE 

02 ENDDO 
01 ENDIF 

01 SET CPU TIMER ANO CLCCK CMP 
ENDIF 

RESTORE PC AND MC NEW PSWS 

RETURN TO DCMIRWT AS THOUGH RESTART JUST WRITTEN 
BGNSEG COPY SEGMENT-COPY A DATA SET 

01 IF ACTUAL DSET IMAGE THERE 

02 UNTIL END OF INPUT ON F/R DSET 

03 RELOC REAC CHAN PROG 
03 GET AMT TREAD IN 

03 BUILO OUTPUT CHAN PROG 

03 GET DEVICE ADDR 

03 WRITE IT CUT 

03 UP INPUT DISK ADDR 

03 IF END CYL ON INPUT 

04 ADJUST HH AND CC 
03 ENDIF 

02 ENDDO 
01 ENDIF 

ENDSEG COPY 
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Figure 3-3. DOMIRCMN 

OCMIRCMN MAIN SEGMENT 



01 /* THIS SEGMENT IS PATCHED ON A CYCLIC BASIS TO 

02 MONITOR THE EMS SYSTEM — IT CONVERSES WITH THE 
02 BACKUP CPU VIA DIRECT CTL */ 

01 INCLUDE D1MRCMN 

01 SAVEST AT UNDEFINED /*SAVELOCS FOR CTRS*/ 

01 LISTARYS CHARACTER /* LIST OF ARRAYS TO CHECK*/ 

01 FIRSTENT BOOLEAN /*INITIAL ENTRY SW */ 

01 GOODVAL BOOLEAN 

01 IF F I RSTENT=Y ES THEN 

02 F I RSTENT=NO 

02 'TURN OFF LTFREQ AND LTSELT • 

02 'ALLOCATE SAVESTAT' 

02 GO00VAL=TRUE 

01 ENCIF 

01 DO 'FOR ALL VALUES IN LISTJRYS' WHILE GOODVAL=TRUE 

02 IF 'LISTARYS VALUE"=SAVED VALUE IN SAVESTAT' THEN 

03 IF 'LISTJRYS VALUE NE ZERO' THEN 

04 GOODVAL=F AL SE 
03 END IF 

02 ELSE 

03 SAVESTAT <X)=LI ST ARYS(X) 
02 ENDIF 

Ql ENCDO 

01 IF GOODV AL=TRU E THEN 

02 'SET BTDC TO NEW CONFIG' 
02 'TURN ON LTCNL AND L TRDY • 

01 ELSE 

02 'SET BTDC TO «F" /* INDICATES FAILOVER REQ*/ 
01 ENDIF 



ENOSEGMENT DCMIRCMN 



Figure 3-4. DOMIRCPY 

□OMIRCPY MAIN SEGMENT 

□OMIRCPY IS BRANCHED TO BY DOMIRFLV TC MAKE MULTIPLE 
COPIES OF THE FAIL0VER/REST4RT CATA S ET • 
BUILD CCNTROL BLCCKS FOR ALL CPPFAIL DC CARCS 
01 COPY ALL OF F/R DATA SET EXCEPT FIRST TRACK 

01 WRITE BOOTSTRAP AND PROTECT KEYS ON EACH TRACK 

01 READ Rl AND R2 FROM DISK TRACK ZERO AND COPY 

01 READ IPL I ANC IPL2 

01 WRITE OUT IPL1 AND IPL2 TO EACH DPPFAILX 

CLOSE CCBS, RELEASE BUFFERS 
ENOSEGMENT OCPIRCPY 
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Figure 3-5. DOMIRFLV 

DOMIRFLV SYNCHRONIZES WITH THE SLAVE < MASTER ) PARTITION 

(IF ANY) ANC PREPARES TO WRITE THE RESTART 

ABEND NOT A REAL TIME JOB 

ABEND IF ANOTHER WTFAILDS GOING 

IF 2 PART OP 
Oi ABEND IF CANT LOCATE OTHER PARTITION 
01 GET TCB ADDR CTHER PARTITION 
01 E NC CN MASTER JOB JOB NAME 

01 IF E GOT RESOURCE 

02 WAIT FOR OTHER PARTITION 

01 ELSE 

02 POST OTHER PARTITION 
01 ENOIF 

END IF 

IF IS SLAVE PARTITION 
01 WAIT FOR MASTER TO WRITE RESTART 
ENDIF 
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Figure 3-6. DOMIRFL2 

D0MIRFL2 PREPARES TO WRITE THE RESTART 
IF MASTER PART. 



01 IF RESTART IS ALLCWED 

02 IF DPPFAIL DOCARD FOUND 

03 IF NOT SYSRES (IPL VOL) 

03 IF VALID DEVICE 

0* LOAD RESTART BOOTSTRAP 

04 LCAD REM P 

04 LOAD RESTART WRITE 

04 PUT EXTENT INFO FOR JOBGUEUE AND SWADS IN BCOT HDR 

04 IF SWADS NOT SWA 

04 END I F 

04 IF TWO PARTITION OPERATION 

05 IF SWADS NOT SWA 

06 PUT EXTENT INFC FCR SWADS OF SLAVE PARTITION IN BOOT HDR 
05 END I F 

04 END IF 

04 GET I/O WORK AREA 

04 PUT CONSOLE ADCR IN BGT HDR 

04 FIX BCOT, RNIP,W0RK AREA, AND RESTART WRITE IN REAL STORAGE 

04 LOOP TIL I/O STOPS 

04 GO TO DOMIRWT TO WRITE RESTART 

04 IF ON RESTARTED CPU 

05 RESET NR,CUB,BSY CN ALL UCBS 
04 END IF 

04 UNFIX ITEMS FIXED 

03 ELSE 

04 SET INVALID DDCARO PETURN 
03 END IF 

02 ELSE 

03 SET NO CDCARD RETURN 
02 END IF 

02 TF RESTART WRITE OK 

03 GC TO DCMIRCPY TC COPY DPPFAIL 
02 END IF 

01 ELSE 

02 MAKE LOCK AS IF RESTART WENT OK 
01 END IF 

01 ISSUE APPROPRIATE MESSAGES 

01 POST OTHER PARTITION IF EXIST 



ENDIF 

RETURN TO CALLER 
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Figure 3-7, DOMIRINT 



OCMIRINT MAIN SEGMENT 
INCLUDE DPPICINF 

/* THIS MODULE IS LINKED TO BY SYSINIT IF FA I LOVER/ RE START 
AND OR EXT INT, HANDLING WAS SYSGENED */ 
IF N-OT SLAVE PART 
01 ENO ON NAME REPRESENTING FA ILGVER /EXT INT GO WITH THIS JOB 

01 IF ENO CK 

02 IF CAN FAVE EXT 

03 IF EXT FLIH NOT PREV INIT 

04 SET LP SUBSTITUTE EXT FLIH 
03 END I F 

03 IF EXT TIME STND EXT INT IN SYS 

04 ATTACH TIME DRIFTER CORRECTOR TASK - DPPDRIFT 

03 ENDIF 
02 END IF 

01 FLSF 

02 SET NC RESTART/EXT I NT THIS JOB 
01 ENDIF 

ELSE SLAVE PART 
01 SET EXT/INT R ST OFF 
ENDIF 

ENDSFGMENT DC M R I NT 



3-8 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-8. DOMIRNIP 



DCMIRNIP MAIN SEGMENT 

FORMAT BOOTSTRAP WORK AREA FOR CONFLICT ELEMENTS 
WHILE NOT AT END UCB LOOK UP 
01 IF NOT FILLER ENTRY 



02 IF DIRFCT ACCESS DEVICE 

03 READ VOLUME LABEL 

03 IF UNABLE TC READ LABEL 

04 IF DEVICE CNLINE BEFORE 

04 IF REAL VCLSER 

05 CREATE CONFLICT ELM 
04 END IF 

03 ELSE WAS ABLE TO READ VOL LABEL 

04 IF DEVICE WAS OFFLINE OR 

04 IF VCLSER IS DIFFERENT 

05 CREATE CFLICT ELM 
04 END IF 

03 ENDIF 
02 ENDIF 



01 ENDIF 

BGNWHILE 
01 GET NFXT UCB ADDR 

ENDDO 

REMOVE ROE S FRCM LOGICAL CHANNEL QUEUES AND CHAIN TOGETHER 
WHILE CFLICT EL«S STILL TO BE CHECKED 



01 IF A NOW VCLERS EXISTS IN THIS ELM 

02 SET UP TO SCAN CTHER CFLICT ELMS 
02 STRTSRCH ELMS TC CHECK 

C2 EXITIF NOW OF ONE EQLS CLD OF ANOTHER AND 

02 EXITIF SAME DEVTYP 

03 INTERCHANGE UCB S 

03 RESWAP VOLUME RELATED INFO 

03 UNCHAIN CFLICT ELM 

02 ORELSE 

03 NEXT TO CCMPARE AGAINST 

02 ENDLOOP 

03 GET NEXT TO CHECK FOR VALID NOW VOLSER 
02 ENDSRCH 

01 ELSE 

02 GET NEXT TO CHECK FOR VALID NOW VOLSER 
01 ENDIF 



ENDDO 

PUT RQE S BACK CN CORRECT LCH 

SET RETURN CODE IF CRITICAL DISK MISSING 

ENDSEGMENT DCMIRNIP 
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Figure 3-9. DOMIRPRB 

DCMIRPRB MAIN SEGMENT 

01 /* THIS SEGMENT RUNS ON A CYCLIC BASIS IN THE 

02 CFFLINE CPU — IT TESTS THE ONLINE CPU VIA DIRECT CTL */ 
01 INCLUDE D1MRCMN 

01 INCLUDE DPPICINF 

01 ECe<2) UNDEFINED /*ll) IS TlME f <2> IS EXT INT */ 

01 GOODY BOOLEAN 

01 'SAVE INFO IN OOMICINF FOR EXT INT' 

01 GOODY-TRUE 

01 • SET ECB(i) POSTED' 

01 DO INDEFINITELY 

02 'WAIT FOR ECE(l) OR EC 6C 2) TO BE POTED' 

02 IF • EC B ( 1 ) IS POSTED* THEN 

03 'SET ECB(l) NOT POSTED • 
03 • READ BTCC 

03 IF BT DC IS ZERO THEN 

04 GOODY=TRUE 

03 ELSE 

04 IF ETDC EQ 15 THEN 

05 GOODY^FALSE 

04 ELSE 

05 IF • BTDC IS THE SAM AS LAST TIME* ThEN 

06 GG0DY=F ALSE 
05 ENDIF 

04 ENDIF 

03 ENDIF 

02 ENDIF 

02 IF »ECB(2) IS POSTED 1 THEN 

03 GOODY=F ALS E 
02 ENDIF 

02 'SET LTRDY ON' 

02 'SET STIMER FOR NEXT ENTRY* 

02 IF GG0DY=F AL SE THEN 

03 IF «ECB<2) IS NOT POSTED* THEN 

04 'SET LTFREQ ON' 

03 ELSE 

04 'SET LTFREQ AND LTSELT ON* 
04 'SET BT2S14 AND DELAY • 

04 'FORCE IPL OF F AIL/RST CATA SET' /*EXIT*/ 

03 EDNIF 

02 ENDIF 

01 ENODO 

ENDSEGMENT DOMIRPRB 
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Figure 10. DOMIRWT 

DOMIRWT IS BRANCHED TO BY COMIRFL2 TO WRITE THE FA ILOVER/R ST 

DATA SET. IT RETURNS AFTER DOING SO. 

SAVE GEN REGS IN BOOT HDR 

SAVE CTL REGS IN BOOT HDR 

INCLUOE DOMIRSIO 

SAVE CLK CMP FOR RESTART READ 

PUT RESUME PSW IN SCOT HEADER 

DUMP ALL OF REAL STORAGE EXCEPT FIRST 2K WORK AREA AND BOOT ( 
3 2K BLOCKS IN ALL. 

COPY ACTIVE ENTRIES FROM PAGING DATA SET TO DDPFAIL 

COPY SYS1.SYSJOBQU AND SYSl.SYSWADS 

COPY SWADS FOR MASTER PARTITION 

COPY SWADS FOR SLAVE PARTITION IF EXIST 

WRITE PROTECT KEYS AND BOOTSTRAP 

WRITE TRACK ZERO IPL RECORDS 

RETRUN TO DIMIRFLV 



Figure 3-11. DOMISVC1 

DOMISVCl MAIN SEGMENT 



01 /* TYPE 1 SVC ROUTER */ 

01 INCLUDE DOMISVCO 

01 IF 'SUBSVC VALID 1 THEN 

02 CASENTRY SUBSVC 

03 CASE I 

04 CALL /* NO RET 01 SABLE SVC* / 

03 CASE 2 

04 CALL /* NO RET CHAIN SC */ 
03 ENDCASE 

02 ELSE 

03 • ABEND USING SVCNO' 
02 END I F 

01 ENCSEGPE NT DCMISVC1 

Figure 3-12. D0MISVC2 

DCMISVC2 MAIN SEGMENT 

01 /* TYPE 2 SVC ROUTER */ 

01 INCLUDE DOMISVCO 

01 IF 'SUBSVC VALID 1 THEN 

02 CASENTRY SUBSVC 

03 CASE 1 

04 CALL /* PATCH-NO RETURN*/ 
03 ENCCASE 

02 ELSE 

03 'ABEND USING SVCNO' 
02 END I F 

01 ENDSEG NT DCMISVC2 
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Figure 3-13. DOMISVC4 

D0MISVC4 MAIN SEGMENT 



01 /* TYPE 4 SVG POUTER */ 

01 INCLUDE DOMISVCO 

01 IF 'SUBSVC VALID' THEN 

02 CA SENTRY SUBSVC 

03 CASE 1 

04 CALL DCMIRFLV /* NO RETURN*/ 
03 ENOCASE 

02 ELSE 

03 • ABENO USING SVCNO' 
02 END IF 

01 ENDSEGMENT DQMISVC4 



Figure 3-14. D0MXSTG1 



DCMXSTGl MAIN SEGMENT 



0 1 


VALID SW BOOLEAN 


n i 

U L 


mNFfi P 1 1 P 


01 


SOFTOPT FILE 


01 


OUTPUT FILE 


01 


SYSPRINT FILE 


01 


H I EARCHY_CHA I N UNDEFINED /*PTR AND LIST OF PAR/CHILD* 


01 


PARM_F I ELD CHARACTER /* PARM FILED FRCM EXEC CARD*/ 


01 


•OBTAIN PARM__F I ELD* 


01 


DO ' FOR EACH CPU IN PARM_F I ELD • 


02 


•OPEN CONFG » SOFTOPT v AND OUTPUT FILES' 


02 


VAL I D_SW-TRUE 


02 


•SET HI ERARCHY_CHA IN TO 1 STATED CPNFG MEMBER • 


02 


DO WHILE VALID_SW = TRUE UNTIL ' HI EARCHY_CHAI N AT £ 


03 


•READ CONFIGH HACRC FROM CURRNET MEMBER* 


03 


IF • C CNGI GH MACROS VALID* THEN 


04 


•INSTALL CHILDREN IN HI EARCHY_C JA IN f 


04 


•COPY CCNFG MEMBER TO OUTPUT FILE' 


04 


•SET FOR NEXT MEMBER? IF ANY* 


03 


ELSE 


04 


VALID_SW=FALSE 


03 


END I F 


02 


ENDDC 


02 


IF VALID__SW=TRUE THEN 


03 


•CGPY SOPFTOPT MEMBER TO CUTPUT' 


02 


ELSE 


03 


PUT SYSPRINT 'INVALID CONFIGH* 


02 


ENDIF 


02 


CLGSE OUTPUT 


02 


IF VALIO_SW=TRUE THEN 


03 


CALL •ASSEMBER* 


02 


END IF 


01 


ENDDO 



ENDSEGMENT DOMXSTGl 



3-12 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-15. DPCALCF1 

DPCALCF1-INCLUDED SEGMENT DPPCALCF 
01 TIME BIN GET OS TIME AND DATE 

01 STORE TINE AND C AT E IN PARAMETER AREA 

ENDSEGNENT 



Figure 3-16. DPCTIME1 

DPCT IME1- INCLUDED SEGMENT DPPCTIME 

01 IF CURRENT TIME GREATER THAN 24 HOURS 

02 SET CORRECTION FACTOR TO MINUS 24 HOURS 
02 LINK DPPCUPCF UPCATE TIME 

01 ELSE 

02 CALCULATE TIME IN HCURS-M I N-S E C-DEC I S ECONDS 

02 STORE TIME IN HOURS-MI N-S EC-DECIS ECONDS IN TIME ARRAY 

02 STORE TIME IN BINARY DECISECONDS IN TIME ARRAY 

01 ENDIF 

ENDS EGMENT 



Figure 3-17. DPCTIME2 

DPCT I V E2- I NCLUDED SEGMENT 
01 MESSAGE 'TIME CHANGED • 
01 LINK DPPCALCF 
01 LINK DPPCUPCF 

ENDSEGMENT 



DPPCTINE 

CALCULATE NEW CORRECTION FACTOR 
UPCATE TIME 



Figure 3-18. DPCTSVC1 

CPCTSVC1-INCLUDED SEGMENT RET OPTION REQUEST 

01 READ TOD CLCCK 

01 CALCULATE CURRENT TIME 

01 RETURN TIME IN REG 0 ANC ADDRESS OF TIME ARRAY IN REG 1 

ENDSEGMENT 
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Figure 3-19. DPCTSVC2 



DPCTSVC2- INCLUDED SEGMENT ADD OPtlCN REQUEST 

01 CBGET PTQE CCNTROL BLOCK 

01 INITIALIZE PTQE WITH DATA IN PTIME INPUT PA R AMETER-PTI MEL 

IF PPOBL IS LESS THAN 8 BYTES LONG AND 

IF PPOBL IS NCT TO BE FREEC BY PTIME 
01 MOVE PROBL INTC THE PTCE 

END I F 

01 IF TCC SPECIFIED 

02 IF START TIME LESS THAN CURRENT TIME 

03 SET START TIME AHEAD BY I CAY 

02 EN 0 1 F 

01 ELSE 

02 IF R EL SPECIFIED 

03 ACD CURRENT TIME TO START TIME 

0? ELSE ASSUME ADJ SPECIFIEO 

03 WHILE START TIME LESS THAN CURRENT TIME 

04 ADD INTERVAL TO START TIME 

03 ENDDO 

02 END IF 

01 END I F 

01 IF STOP TIME SPECIFIED 

02 IF REL SPECIFIED 

03 ADD CURRENT TIME TO STOP T I ML 

02 ELSE 

03 IF ADJ SPECIFIED 

04 WHILE STOP TIME LFSS THAN CURRENT TIME 

05 ADD INTERVAL TO STOP TIME 

04 ENDDO 

03 END I F 

02 ENDIF 

02 WHILE STOP TIME LESS THAN START TIME 

03 ADD 24 HCUR VALUE TO STOP TIME 

02 ENDDO 

02 CALCULATE THE NUMBER OF INTERVALS 

01 ELSE 

02 IF ZERO CCLNTS SPECIFIED 

03 SET INFINITE PTIME FLAG 
02 ENDIF 

01 ENDIF 

01 SAVE COUNT VALUE 

01 LOCK CN TIME ARRAY 

01 CHAIN PTQE TO PTQE ChAIN 

01 UNLOCK TIME ARRAY 
ENCSEGMENT 
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Figure 3-20. DPCTSVC3 



DPCTSVC3-INCLU0ED SEGMENT MOD SPECIFIED 

01 LGCK CN TIME ARRAY 

01 WHILE MCRE PTOE'S ON CHAIN DO FOR ALL PTQE«S 

02 IF TH(S IS A PTOE TO BF MODIFIED 

03 CHAIN REMOVE PTCE FROM PTOE CHAIN 

03 RESET PTQE WITH I NFORMAT ICN IN PTIME INPUT PARAMETER- PTIMEL 

02 IF PROBL IS LESS THAN 8 BYTES LONG AND 

02 IF PROBL IS NOT TO BE FREED BY PTIME 

03 MOVE PROBL INTO THE PTOE 

02 END I F 

03 IF TCO SPECIFIED 

04 IF START TIME LESS THAN CURRENT TIME 
C5 SET START TIME AHEAD BY 1 CAY 

04 END I F 

03 ELSE 

04 IF REL SPECIFIED 

05 ADD CURRENT TIME TO START TIME 

04 ELSE ASSUME ACJ SPECIFIED 

05 WHILE START TIME LESS THAN CURRENT TIME 

06 ADD INTERVAL TO START TIME 
05 ENCCO 

04 ENDIF 

03 END IF 

03 IF STOP TIME SPECIFIED 

04 IF REL SPECIFIED 

05 ADD CURRENT TIME TO STOP TIME 

04 ELSE 

C5 IF AD J SPECIFIED 

06 WHILE STOP TIME LESS THAN CURRENT TIME 

07 ADD INTERVAL TO STOP TIME 
06 ENDDO 

05 ENDIF 
04 ENDIF 

04 WHILE STOP TIME LESS THAN START TIME 

05 ADD 24 HOUR VALUE TO STOP TIME 
04 ENDDO 

04 CALCULATE THE NUMBER OF INTERVALS 

03 ELSE 

04 IF ZERO COUNTS SPECIFIED 

05 SET INFINITE PTIME FLAG 
04 ENCIF 

03 ENDIF 

03 SAVE COUNT VALUE 

03 CHAIN ADD THIS PTQE TO PTOE CHAIN 

02 ENDIF 

Oi ENCDC 

OL UNLCCK TIME ARRAY 
ENDS EGMEN T 
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Figure 3-21. DPCTSVC4 

0PCTSVC4- INCLUDED SEGMENT DEL SPECIFIED 

01 LCCK CN TIME ARRAY 

01 WHILE Mf]R E PTQE'S ON CHAIN DO FOR ALL PTCE»S 
0? IF THIS IS A PTCE TC EE DELETED 

0'* SET PURGE FLAG 

02 END IF 
01 ENCDC 

01 POST DPPCPTIM TO REMOVE PTQE FRCM PTQE CHAIN 

01 UNLCCK TIME ARRAY 

ENDSEGMFNT 



Figure 3-22. DPCUPCF1 

0PCUPCF1- I NCLUDFD SEGMENT CPPCUPCF 
01 CCNVERT INPUT CORRECTION FACTOR TO TOD COUNTER UNITS 
0? IF T I M F IS FAST THEN 

03 ACC CCPRECTICN FACTOR TO CURRENT CCNVERSICN FACTOR 

0? FLSE 

0^ SUBTRACT CORRECTION FACTCR FROM CURRENT CCNVERSICN FACTOR 

0? END IF 

01 * NOTF: THE CCNVERSICN FACTOR IS SUBTRACTED FRCM TAE 

01 * TOO COUNTER VALUE TO OBTAIN THE TIME 

0? STORE NEk CONVERSION FACTOR INTO TIME 4RRAY 

01 FNDSFGMENT 



Figure 3-23. DPCUPCF2 

nnCUPC F2- INCLUDED SEGMENT CPPCUPCF 
HE AC TOD COUNTER VALUE 

SUBTRACT CORRECTION E ACT OR FPCM TCD COUNTER VALUE 
CONVERT TI^E CIFFERENCE TO 10 MILL I SECOND UNITS 
STORE BINARY TIME VALUE INTO TIME ARRAY 

CONVERT BINARY TIME VALUE INTO HOURS- MI NUTES- SECONDS-DEC I SECONDS 
STPPF HOURS-MINUTFS-SECONDS-DFCISECONDS INTO TIME ARRAY 

ENDS'FGMENT 
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Figure 3-24. DPCUPCF3 

DPCUPCF3— I NCLUDED SEGMENT CPPCUPCF 
LOAD INPUT JULIAN OATE 
STORE JULIAN DATE IN TIME ARRAY 
STORE JULIAN OA Y OF THE YEAR INTO TIME ARRAY 
CONVERT JULIAN DAY OF THE YEAR TO BINARY 
CALCULATE MONTH-CAY-YEAR FRCM JULIAN DATE 
STORE MONTH- CAY- YEAR INTC TIME ARRAY 
CONVERT MONTH- DAY— YEAR INTO EBCDIC 

STORE EBCDIC MCNTH-D AY-YEAR INTO TIME ARRAY 

ENDSEGNENT 



Figure 3-25. DPCUPCF4 

OPCUPC F4- 1 NCLUDED SEGMENT DPPCUPCF 



01 GET ADCRESS CF FIRST PTOE ON CHAIN 

01 IF INPUT CHANGE VALUE IS NEGATIVE 

02 IF INPUT CHANGE VALUE IS EQUAL TO 24 HOURS THEN ITS MIDNIGHT 

03 WHILE PTCE ADDRESS IS NOT ZERO 

04 RESET PTOE TIME BY 24 HOURS 
03 ENDDO 

02 ELSE 

03 WHILE PTCE ADDRESS IS NOT ZERO 

04 IF ORIGINAL START TIME LESS THAN CURRENT TIME OR 

04 IF ORIGINAL START TIME GREATER THAN TIME OF NEXT PATCH 

05 USE THE CURRENT TIME AS START TIME 

04 ELSE 

05 USE THE CRIGINAL START TIME 
04 ENDIF 

04 RESET NUMBER OF PATCH COUNTS 

04 RESET NEXT PATCH TIME 

03 ENDDO 

02 ENDIF 

02 ENDIF 

Oi ENDIF 



ENDS EGME NT 
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Figure 3-26. DPIDBAS1 



DPIDBAS1-INCLUDED SEGMENT READ INITIALIZATION OAT A 

OPEN OAT A BASE DCB 

BLDL TC GET DIRECTORY ENTRY FOR aiNIT ARRAY 
READ SINIT ITEM RECORD 

CALCULATE C ATA BASE TABLE SIZES FRCM INFORMATION IN ITEM RECORD 

GETMAIN PROTECTED CORE FOR DATA BASF TABLES 
01 GETMAIN USER CORE FOR CBLCB AND CBCC TABLES 

UNTIL ALL 3INIT CAT A RECORDS HAVE BEEN READ IN 
01 READ C ATA RECORD INTO GETMAINEC AREA 

ENDDO 
ENDSEGMENT DP I DBAS i 



Figure 3-27. DPIDBAS2 



DP I D8AS2-- INCLUDE C SEGMENT BUILD TABLE HEADERS 

OPEN COMPOSITE ITEMS DC8 AND DATA BASE DCB 
CALCULATE PAGE BOUNDARY TABLE SIZE 
GETMAIN PROTECTED CORE FOR PBT 
BUILD PBT 

INITIALIZE DATA BASE TABLE HEADERS 
ENDSEGMENT DPICeAS2 



Figure 3-28. DPIDBAS3 

DPI DBA S3— INCLUDED SEGMENT CHAIN CATA BASE TABLES TOGETHER 

GETMAIN CORE FOR VS RESIDENT ARRAY DATA 
UNTIL ALL ARRAYS HAVE BEEN PROCESSED 



01 IF IT'S NOT A DUMMY ARRAY 

02 IF IT'S A VS RESIDENT A RRAY 

03 IF INITIAL CATA REQUIRED 

04 BLDL FCR ARRAY DIRECTORY ENTRY 

04 UNTIL ALL CATA RECCRDS HAVE BEEN READ 

05 READ ARRAY DATA RECORD 
04 ENDDO 

03 ENCIF 

02 ELSE 

03 IF CCB FOR DA RESIDENT ARRAY DDNAME HAS NOT BEEN OPENED 

04 DEFLCCK FOR THIS DCB ADORESS 
03 OPEN DCB FOR DDNAME 

02 END I F 

01 ENDIF 
ENDIF 



ENDDO 
ENDSEGMENT DPI CBAS3 



3-18 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-29 (1 of 2). DPINIT01 

0PINIT01 - INCLUDED SEGMENT - PAR AM KEYWORD PROCESSOR 

WAS A PAR AM= KWD PREV PROCESSED ? 

IF NOT - PROCESS KWD 
01 TURN ENDING FLAGS OFF 
01 TURN ON PARAM= KWC PROCESSED FLG 
01 IF PA RAM BEGINS WITH LEFT PARENTHESIS 



02 UNTIL *:LOOP - COUNT QUOTES TO GET # SUEPARAMS 

03 IF INC R COUNTER 
03 ENDIF 

02 ENDDO 

02 IF COUNT EVEN - PROPERLY BALANCED 

03 BUILD A PRCBL 

03 UNTIL LOOP TILL END OF PARAM PROCESSING 

04 IF FORMAT IS CORRECT, IDENTIFY DATA 

05 IF DATA TYPE IS X f • 

06 UNTIL LCOK FOR ENDING QUOTE 
06 ENDDC 

06 SAVE ADDR OF ENDING QUOTE 

06 CALC LNTH OF X DATA 

06 IF FIELC CONTAINED ALL VALID l-EX DATA 

07 TRANSLATE THE HEX DATA 
07 GET CORE FOR FARM 

07 STORE PARM ADDR IN PROBL 

07 PUT LNTH IN PROBL 

06 ELSE 

07 WRITE ERROR MSG 
06 END IF 

05 ELSE 

06 IF DATA TYPE IS F« • 

07 GET STORAGE FOR DATA 
07 PUT PARM ADDR IN PROBL 
07 PUT CCRE LNTH IN PROBL 

07 IF DATA HAS PLUS SIGN 

08 PCINT PAST SIGN CHARACTER 
07 ENDIF 

07 IF DATA HAS MINUS SIGN 

08 PC I NT PAST SIGN CHARACTER 

08 TURN ON FULLWORD NEGATIVE FLG 

07 END IF 

07 UNTIL SCAN FOR ENDING QUOTE 

07 ENDDO 

C7 CCNVEPT INPUT TO BINARY 

07 IF FULLWORD NEGATIVE FLAG ON 

08 COPLIMENT CATA 
07 ENDIF 
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Figure 3-29 (2 of 2). DPINIT01 



07 PUT BIN VALUE IN PARM 

07 IF *:N0PDL 

07 ELSE 

08 IF END OF PARAM PROCESSING 
08 ELSE 

08 ENOIF 

07 ENOIF 

06 ELSE 

07 IF DATA TYPE C 

08 UNTIL LOCK FOR ENDING QUOTE 
08 ENDDO 

08 SAVE ENDING QUOTE ACDR 

08 CALC DATA LNTH 

08 GET STORAGE FOR DATA 

08 PUT PARM AOOR IN PRCBL 

08 PUT LNTH IN PROBL 

08 WOVE DATA TO PARM AREA 

08 WRITE ERROR MSG 

07 ENOIF 

06 END IF 

05 END I F 

04 ELSE 

05 WHITE ERROR MSG 
04 END IF 

03 ENDDO 

02 ELSE 

03 WRITE ERROR MSG 
02 END IF 

01 ELSE 

02 WRITE ERROR MSG 
01 END IF 



ELSE 

01 WRITE ERROR MSG 
END IF 

IF NC ERRORS - UPCATE PTRS 



01 IF END OF STATEMENT REACHED 

02 TUFM CN END FLG 

01 ELSE 

02 IF MORE OPERANDS ARE EXPECTED 

03 PCINT TO START OF NEXT FIELD 

02 ELSE 

03 WRITE ERROR MSG 
02 ENDIF 

01 ENDIF 



ENDIF 

( 
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Figure 3-30 (1 of 4). DPINIT02 

DPINIT02 - INCLUDED SEGMENT - PATCH CARD PROCESSOR 
IF THIS IS A PRE RESTART PATCH BLOCK 
01 TURN ON PRE— RESTART PTCH FLAG 
END IF 

WHILE DO UNTIL END FLG OR ERR FLG 
01 IF KWD FOUND 



02 IF KEWORD = EP 

03 IF EP = KWD NOT ALREACY PROCESSED 

04 TURN ON EP KWD PROCESSED FLG 

04 IF EP NAME LE 8 CHAR 

05 MOVE NAME TO SUPL 

05 IF END OF OPERAND PROCESSING 

06 TURN CN END FLAG 

05 ELSE 

06 INCR PTR TO START OF NEXT KEYWORD 
05 ENDIF 

OA ELSE 

05 WRITE ERROR MSG 

04 END IF 

03 ELSE 

04 WRITE ERROR MSG 
03 ENDIF 

02 ELSE 

03 IF KWD = TASK 

04 IF TASK = KWD NOT PREVIOUSLY PROCESSED 

05 TURN CN TASK= KWD PROCESSED FLG 

05 IF TASK NAME LE 8 CHARACTERS 

06 MOVE NAPE TO SUPL 

06 IF END CF OPERANOS 

07 TURN CN END FLAG 

06 ELSE 

07 POINT TO FIRST CHAR OF NEXT KfcD 
06 ENDIF 

05 ELSE 

06 WRITE ERROR MSG 
05 ENDIF 

04 ELSE 

05 WRITE ERRCR MSG 
04 ENDIF 

03 ELSE 

04 IF KWD = CL 

05 IF QL KWD NOT PREVIOUSLY PROCESSED 

06 TURN CN CL= KWD PROCESSED FLG 

06 IF QL LE VALUE CF 100 

07 IF DATA VALID 

08 IF ID VALUE LE 255 OR 180 

09 PUT QL IN SUPL 

09 IF END OF DATA 

10 INDICATE END OF OPERANOS 

09 ELSE 

10 I NCR PTR TO START CF NXT KWD 
09 ENDIF 
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Figure 3-30 (2 of 4). DPINIT02 



08 ELSE DR180 

09 WRITE ERROR MESSAGE 0R180 
08 ENCIF DR180 

07 ELSE 

08 WRITE ERROR MSG 
07 ENDIF 

06 ELSE 

07 WRITE ERROR MSG 
06 ENDIF 

05 ELSE 

06 WRITE ERROR MSG 
05 ENDIF 

04 ELSE 

05 IF KWD^ID 

06 IF ID = KWD NOT PREVIOUSLY PROCESSED 

07 TURN CN ID= KWD PROCESSED FLG 

07 IF ID VALUE LE 255 

08 IF C ATA VALID 

09 IF ID VALUE LE 255 DR180 

10 SAVE THE ID 

10 IF NO MCRE OPERANDS 

U TURN ON END FLG 

10 ELSE 

11 INCR TO FIRST CHAR OF NXT CPND 
10 ENDIF 

09 ELSE OR180 

10 WRITE ERROR MESSAGE DR180 
09 ENDIF DR180 

08 ELSE 

09 WRITE ERROR MSG 
08 ENDIF 

07 ELSE 

08 WRITE ERROR MSG 
07 END I F 

06 ELSE 

07 WRITE RRROR MSG 
06 ENDIF 

05 ELSE 

06 IF KEYWORD = PRTY 

07 IF PRTY= KWD NOT PREVIOUSLY PROCES 

08 TURN ON PRTY= KWD PPOC FLG 

08 IF CODED «TASKNAME,N« 

09 IF TASKNAME LE 8 CHAR 

10 IF DEL IMETER WAS A COMMA 

11 MOVE PRTY REFERENCE NAM TO SUPL 
11 STRTSRCH FIND END OF FIELD 

11 EX I TIF END FOUND 

12 IF FIRST CHAR NOT RPAREN 
1^ WRITE ERROR MSG 
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Figure 3-30 (3 of 4). DPINIT02 

12 ELSE 

13 IF DATA VALID 

14 IF PRTY VALUE LE 255 DR180 

15 PUT PRTY VALUE IN SUPL 

15 IF NO MORE OPERANDS 

16 TURN ON END FLG 

15 ELSE 

16 IF VALID DEL IMETER 

17 POINT TO START OF NXT OPND 

16 ELSE 

17 WRITE ERROR MSG 
16 END IF 

15 END IF 

14 ELSE DR180 

15 WRITE ERROR MESSAGE DR180 
14 ENDIF DR180 

13 ELSE 

14 WRITE ERROR MSG 
13 ENDIF 

12 END IF 

11 ORELSE 

12 INCR TO NEXT OAR 

11 ENDLOOP 

12 WRITE ERROR MSG 
11 ENDSRCH 

10 ELSE 

11 WRITE ERROR MSG 
10 END IF 

09 ELSE 

10 WRITE ERROR MSG 
09 END I F 

08 ELSE 

09 IF PRTY CODED JOBSTEP-N 

10 IF PRTY LE 3 CHAR 

11 IF CAT A VALID 

12 PUT REL PRTY VALUE IN SUPL 

12 IF END OF PROCESSING 

13 TURN ON END FLG 

12 ELSE 

13 I NCR TO START OF NXT OPND 
12 END I F 

11 ELSE 

12 WRITE ERROR MSG 
11 END IF 

10 ELSE 

11 WRITE ERROR MSG 
10 END I F 
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Figure 3-30 (4 of 4). DPINIT02 



09 
10 
09 
08 
07 
08 
07 
06 
07 
08 
07 
08 
07 
06 
05 
04 
03 
02 
01 
02 



ELSE 

WRITE ERROR MSG 
EhDIF 



END IF 
ELSE 



WRITE ERROR MSG 
END IF 



ELSE 



IF KEYWORD=PA RAM 



COPY 0PINIT01 
ELSE 



WRITE ERROR MSG 
END IF 



END IF 
END IF 
END IF 
ENDIF 
END IF 



ELSE 



WRITE ERROR MSG 



01 ENDIF 
BGNWHILE 
ENDDO 

IF NO ERRORS - CHECK PROBL 
01 IF NC PROBL - GET ONE 
01 END IF 

01 PUT ID IN PRCBL 
END IF 

IF NO ERRORS WERE DETECTED 

01 IF EP= WAS NOT SPECIFIED 

02 WRITE ERR MSG 
01 END IF 

ENDIF 

CLEAR PATCH FLAGS 
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Figure 3-31 (1 of 2). DPINIT03 

DPINIT03 - INCLUDED SEGMENT - CONTINUATION CARD PROCESSOR 
IF COLUMNS 1-15 ARE BLANK 



01 IF PROCESSING IS NOT IN P*RAM FIELD 

02 IF VALTD CONTINUATION 

03 LCCK FOR FIRST BLANK CR CUOTE 

03 IF END CF OPNDS BEFORE END DATA COL 

04 IF DELIMITER IS A BLANK 

05 IF CHAR BEFORE DEL IM IS A COMMA 

06 TURN CN CONTINUATION FLAG 

05 ELSE 

06 CFECK FOR BLANK IN COL 72 
06 IF COLUMN 72 IS BLANK 

C7 TURN CN NO OPERANDS AND CCNTINUATION FLAGS 

06 ELSE 

07 TURN OFF NO OPERANDS ANC CONTINUATION FLAGS 
06 END IF 

05 ENDIF 

04 ELSE 

05 BREAK OUT BLANKS (DO DPINIT06) 
04 END IF 

03 ELSE 

04 IF CCNTINUATION EXPECTED 

05 TURN ON CCNTINUATION EXPECTED FLG 

04 ELSE 

05 TURN CCNTINUATION FLG OFF 
04 ENDIF 

03 END IF 

02 ELSE 

03 IF COLUMN 72 IS NON-BLANK 

04 TURN OFF NO OPERANDS AND CONTINUATION FLAGS 
03 END I F 

03 fcRlTE ERROR MSG 

02 ENDIF 

01 ELSE 

02 FIND THE ENDING OUOTE FOR PARAM 

02 IF DEL IM FOUND 

03 BREAK OUT BLANKS IDO DPINIT06) 

02 ELSF 

03 IF NO CCNTINUATION EXPECTED 

04 WRITE ERROR MSG 
04 TURN CONT FLG OFF 

03 ELSE 

04 TURN CCNTINUATION FLAG CN 
03 END IF 

02 ENDIF 
01 ENDIF 
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Figure 3-31 (2 of 2). DPINIT03 



01 IF MAX OPERANDS NCT EXCEECED 

02 MOVE OPNOS TO WA 

01 ELSE 

02 IF NO CCNT I NUAT ION EXPECTED 

03 TURN OFF FLAGS 
02 END IF 

02 WRITE ERROR *»SG 

01 END IF 
ELSE 

01 IF NO CCNTINUATION EXPECTED 

02 TURN OFF CONTINUATION AND NO MORE OPERANDS FLAGS 
01 ENOIF 

01 WRITE ERROR MSG 
END IF 
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Figure 3-32 (1 of 5). DPINIT04 

DPINIT04 - INCLUDED SEGMENT - CONTROL CARD PROCESSOR 
IF ANY MORE CONTINUATIONS 
01 IF NC MORE ERRORS HAVE BEEN DETECTED 



02 IF THIS IS A PATCH CARD 

03 COPY DPINIT02 - PATCH CARD PROCESSOR 

02 ELSE 

03 IF THIS IS A WAIT CARD 

04 IF NAME LE 8 CHAR. 

05 IF ANY INITCB'S EXIST ON CHAIN 

06 STRTSRCH SEARCH TO END OF CHAIN 

07 LCCK FOR PATCH CTL BLCK 

06 EXITIF BLOCK FOUND WITH PROPER LABEL 

07 IF NAFED §LOCK IS A PATCH BLOCK 

08 GET A CB ANC ADD IT TO CHAIN 
08 GET ECB ADDR 

08 PUT ECB ADCR IN WAIT BLK 

07 ELSE 

08 WRITE ERROR MSG 
07 END IF 

06 CRELSE 

07 UPDATE TO NEXT BLOCK 

06 ENDLOOP 

07 WRITE ERROR MSG 
06 ENDSRCH 

05 ELSE 

06 WRITE ERROR MSG 
05 ENDIF 

04 ELSE 

05 WRITE ERROR MSG 
04 END IF 

03 ELSE 

04 IF THIS IS A RESTART STATEMENT 

05 IF NO WRITE RESTART PREVIOUSLY FOUND 

06 TURN CN RESTART WRITE FLAG 
06 GET AN INITCB AND CHAIN IT 
06 TURN CN WRITE BLOCK FLAG 

06 UNTIL ALL OPERANDS PROCESSED, CO 

07 IF THIS IS A WRITE RESTART REQUEST 

08 TURN ON WRITE RESTART FLAG 

07 ELSE 

08 IF THIS IS A RESTART NOWRITE 

09 LEAVE WRITE RESTART FLAG IN ITS PRESENT STATE 

08 ELSE 

09 IF THIS IS A CANCEL FLAG 

10 TURN ON THE CANCEL FLAG 

09 ELSE 

10 IF THIS IS NOCANCEL RECUEST 

11 LEAVE CANCEL FLAG IN ITS PRESENT STATE 
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Figure 3-32 (2 of 5). DPINIT04 



10 ELSE 

11 IF THIS IS A PROBE REQUEST 

12 TURN ON PROBE FLAG 

11 ELSE 

12 IF NOPROBE REQUESTED 

13 LEAVE PROBE FLAG IN ITS PRESENT STATE 

12 ELSE 

13 IF CCNT MOITOR REQUEST 

14 TURN CMGN FLG ON 

13 ELSE 

14 IF NOCMON REQUESTED 

15 LEAVE THE CMON FLAG IN ITS PRESENT STATE 

14 ELSE 

15 WRITE ERROR MESSAGE 
14 ENDIF 

13 ENDIF 
12 ENDIF 
11 ENDIF 
10 ENDIF 
09 ENDIF 
08 ENDIF 
07 ENDIF 

07 IF NO ERRORS DETECTED 

08 IF DEL IMETE R FOUND 

08 ELSE 

09 WRITE ERROR MESSAGE 
08 ENDIF 

07 ELSE 

08 SET CONDITION TO EXIT DO LOOP 
07 END IF 

06 ENDDO 

05 ELSE 

06 WRITE ERROR MSG 
05 EN01F 

04 ELSE 

05 IF THIS IS A MASTER CARD 

06 IF TWC PARTITION IS ALLOWED 

07 IF NO PREV MAST OR SLAVE CARD READ 

08 IF KEYWORD IS SLAVE= 

09 IF J OB NAM LE 8 CHAR 

10 MOVE NAME TO MAIN BLOCK 
10 TURN ON MASTER FLAG 

09 ELSE 

10 WRITE ERROR MSG 
09 ENDIF 

08 ELSE 

09 WRITE ERROR MSG 
08 ENCIF 

07 ELSE 

08 WRITE ERROR MSG 
07 ENDIF 
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Figure 3-32 (3 of 5). DPINIT04 



06 ELSE 

07 WRITE tKRdfc' MESSAGE 
06 END IF 

05 ELSE 

06 IF THIS IS SLAVE CARD 

07 IF TWC PARTITION IS ALLOWED 

08 IF NO MAST OR SLAV PREVIOUSLY READ 

09 IF KEYWORD IS MASTER* 

10 IF JOBNAME LE 8 CHAR 

11 MOVE JN TO MAIN BLOCK 
11 TURft CN SLAVE FLAG 

10 ELSE 

11 WRITE ERROR MSG 
10 ENOIF 

09 ELSE 

10 WRITE ERROR MSG 
09 END IF 

08 ELSE 

09 WRITE ERROR MSG 
08 ENOIF 

07 ELSE 

08 WRITE ERROR MESSAGE 
07 END I F 

06 ELSE 

07 IF THIS IS A C8GET CARD 

08 IF CPND LE 2 CHAR 

09 IF DATA VALID 

10 PUT # 2K BLKS CBGET CORE IN MAINBLOK 

09 ELSE 

10 WRITE ERROR MSG 
09 END IF 

08 ELSE 

09 WRITE ERROR MSG 
08 END IF 

07 ELSE 

08 IF THIS IS A GETWA CARO 

09 IF SUBLIST STARTS WITH LPAREN 

10 UNTIL END OF LIST - OF 

10 UNTIL ERROR FOUND 

11 IF DELIMITER FOUND 

12 IF # PARAMS LE MAX 

13 IF DELIMITER IS BLANK 

1* IF LAST COL NOT RPAREN 

15 WRITE ERROR MSG 

14 ENDIF 
13 ENDIF 
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Figure 3-32 (4 of 5). DPINIT04 

13 IF NO ERRORS DETECTED 

14 IF DATA VALID 

15 IF #BLKS 

16 IF # INVALID 

17 WRITE ERROR MSG 
16 END IF 

15 ELSE 

16 IF SIZE INVALID 

17 WRITE ERROR MSG 
16 END IF 

16 IF SIZE GT 2K 

17 IF VALUE NOT 2K MULTIPLE 

18 WRITE ERROR MESSAGE 
17 END IF 

16 ENDIF 
15 ENDIF 

15 IF NON ZERO CR5063 

16 PUT VALUE IN LIST 

15 ELSE DR5C63 

16 WRITE ERROR MSG DR5063 
15 END IF DR5063 

14 ELSE 

15 WRITE ERROR MSG 
14 ENDIF 

13 ENDIF 

12 ELSE 

13 WRITE ERROR MSG 
12 ENDIF 

11 ELSE 

12 WRITE ERROR MSG 
11 ENDIF 

11 END OF SUBLIST ? 

10 ENDDO 

09 ELSE 

10 WRITE ERROR MSG 
09 ENDIF 

09 IF NO ERRORS DETECTED 

10 SORT TABLE ENTRIES BY SIZE 

09 IF THIS IS TCB CARD 

10 IF OPERAND LE THREE CHARACTERS 

11 IF DATA VALID 

12 PUT ; # TCB'S IN MAINBLOK 

11 ELSE 

12 WRITE ERROR MSG 
11 ENDIF 
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Figure 3-32 (5 of 5). DPINIT04 



10 ELSE 

11 WRITE ERROR MSG 
10 ENOIF 

09 ELSE 

10 IF THIS IS AN ABEND CARD 
U GET A CB AND CHAIN It 

11 END IF 

10 ELSE 

11 IF THIS IS A DBREF CARL 

12 IF CBREF NOT WANTED 

13 IF CBREF REQUESTED 

14 LEAVE THE OBREINIT FLAG 

13 ELSE 

14 WRITE ERROR MESSAGE 
13 ENOIF 

12 ELSE 

13 GET MAINBLOK ADCR 

13 TURN OFF OBREINIT FLAG 

12 END IF 

11 ELSE 

12 WRITE ERROR MSG 
11 ENOIF 

10 ENDIF 

09 EKDIF 

08 ENOIF 

07 END IF 

06 ENDIF 

05 END IF 

04 ENDIF 

03 ENDIF 

02 END IF 

01 END IF 



ENDIF 
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Figure 3-33. DPINIT05 

DPINIT05 - INCLUDED SEGMENT - BUILD WAIT LIST ROUTINE 



IF A CONT WAS EXPECTED BUT NOT RtECVO 
01 ISSUE ERROR MESSAGE 
END IF 

IF ANY CONTROL STATEMENT ERRORS FOUND 
01 ISSUE ERRCR MESSAGE 
01 ABEND - USER 34 

ENDIF 

IF THIS IS NOT 4 SLAVE PARTITION 

01 IF NO PATCH BLOCK EXISTS 

02 ABEND TFE JOB - USER 40 
01 ELSE 

IF A WRITE RESTART BLOCK EXISTS 

01 UNTIL LOOP COUNTING PATCH BLOCKS 

02 IF THIS A PATCH BLCCK 

03 I NCR COUNT 
02 END IF 

01 ENDDC STOP MEN WRITE BLOCK FOUND 

01 IF PATCH BLOCKS PRECEED THE WRITE 

02 BUILD A WAIT LIST 
01 ENDIF 

ENDIF 

IF WRITE RESTART NOT LAST BLK ON CHAIN 

01 UNTIL COUNT PATCH BLKS WITH P*RM 

02 IF THIS A PATCH BLOCK 

03 IF PAR AM WAS CODED 

04 COUNT PATCH BLKS WITH PARAM 
03 ENDIF 

02 ENDIF 

02 GET PTR TO NEXT BLK 

01 ENDCO 

01 IF PATCH BLOCKS EXIST 

02 UNTIL ENO OF CHAIN 

03 IF THIS A PATCH BLOCK 

04 IF PATCH HAS A PARAM 

05 GET ECB ADDR 

05 PUT ECB ACOR IN ECB LIST 

05 INCR TO NEXT LIST ENTRY 

04 END IF 

03 ENDIF 

03 GET NEXT BLOCK ADDRESS 

02 ENDDO 
01 ENDIF 
ENDIF 

RETURN TO C4LLER 
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Figure 3-34. DPINIT06 

OWWITOfc "INCLUDE© SEWEW >~ RTNE TO HANDLE BLANKS IN PAR AM 

BGNSEG 



01 UNTIL VALID DEL I METE R FGUND OR 

01 UNTIL DEL IMETER AND ERROR OR D«183 

01 UNTIL END OF CAT* COLUMN REACHED 

02 IF BLANKS ARE NOT DEL IMETERS 

03 IF QUOTE FCUNO BEFORE END OF DATA 

04 MAKE BLANK A DELIMITER 

03 ELSE 

04 IF NO CONTINUATION - ERROR 

05 WRITE ERROR MESSAGE 
05 TURN CONT FLAG OFF 

04 ELSE 

05 TURN ON CONTINUATION FLAG 
04 END IF 

03 ENOIF 

02 ELSE 

03 IF DELIM FOUND 

04 >IF .-TH&tQEUttlTEft-. IS A OUOTE 

05 MAKE BLANKS A DELIMITER 

04 ELSE 

05 IF LAST CAT A COL IS A COMMA 

06 TURN CN CONTINUATION AND DELIM ETER FLAGS 

05 ELSE 

06 IF CONTINUATION COLUMN IS NON BLANK 

07 TURN FLGS ON 

07 TURN CONTINUATIONt NO OPERANDSt AND OEL IMETER FLAGS 

06 ELSE 

07 MAKE BLANK A OELIMITER 

07 TURN OFF CONTINUATION AND NO OPERANDS FLAGS 

06 ENDIF 
05 ENDIF 
04 END IF 

03 ELSE 

04 IF LAST DATA COL IS CCMMA 

05 TURN CONTINUATION FLG ON 
04 ENDIF 

04 IF CONTINUATION COL IS NON BLANK 

05 TURN CONTINUATION FLG ON 
04 ENDIF 

03 ENDIF 
02 ENDIF 
01 ENDDO 



ENDSEG DPINIT06 
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( 



Figure 3-35. DPINIT08 



DPINITC8 - INCLUDED SEGMENT - INITCB BUILD AMD CHAIN HOUTINE 

BGNSEG 

01 GET CORE FOR CONTROL BLOCK 
01 CLEAR CORE GOTTEN FOR CTL BLK 
01 GET CHAIN ORIGIN 

01 fcHILE LCOP TILL END OF CHAIN 

02 UPOATE CURRENT PTR 

01 BGNViHILE 

02 GET NEXT PTR 
01 ENODO 

01 AOD NEW BLOCK TO END OF CHAIN 
ENDSEG DPINIT08 



Figure 3-36. DPINIT09 



0PINIT09 - INCLUDED SEGMENT ERROR* MESSAGE WRITER ROUTINE 
BGNSEG 

01 TURN CN CONTROL STATEMENT ERROR FLAG 
01 GET MESSAGE AODR IN REG 0 

01 IF OUTPUT CCB OPEN 

02 PUT ERROR MSG TO WRITER 
01 ENDIF 

ENDSEG DPINIT09 



3** 34 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-37. DPINIT1 



DPINITl - INCLUDED SEGMENT - INITIALIZE TMCT ANO GETWA CORE 

CALCULATE AMOUNT OF SPACE REQUIRED FOR TMCT 

GET MA I N F ROM SUBPOOL 253 FOR TMCT 

CLEAR TMCT CORE 

GET MY LIMIT PRIORITY 

GET DIFF FOR DPPTPMCNS PRIORITY 

CALCULATE CPPTPMCN'S LIMIT PRTY 

PUT DPPTPMCN'S LIM PRTY IN TMCT 

PUT GFMB ADCR IN TMCT 

GET THE NUMBER OF GETWA SIZES 

PUT # G*A SIZES IN TMCT 

PUT XCVT ADDR IN TMCT 

CALCULATE THE AMOUNT OF PROTECTED STORAGE REQUIRED FOR GET MA CONTROL 
BLOCKS: 

* (NUMBER SIZESXGFCBLNTH)«MTOT NUMB 8LOCKSXGFBELNTH* =CORE SIZE 
IF MINIMUM SIZE NOT SPECIFIED APAR24 

01 ABEND JOB STEP - USER 46 APAR24 
ENDIF APAR24 

INITIALIZE GETWA CONTROL BLOCKS: 

* - GFCB = GETWA— F RE WA CONTROL BLOCKS 

* - GFBE = GETWA-FREEWA BLOCK ENTRY 

* - GFMB = GETWA-FREEWA MAIN BLOCK 
UNTIL GETWA CONTPCL BLOCKS INITIALIZED 

01 PUT SIZE OF GETWA BLOCKS IN GFM8 

01 POINT THE GFMB TO ITS GFCB 

01 INITIALIZE ID FIELD OF GFMB 

01 INCREMENT ID FOR NEXT GFMB 

01 POINT THE GFCB TC ITS GFMB 

01 MAKE PREV GFCB POINT TO THIS GFCB 

01 * THE FIRST CNE WILL BE POINTED TO 

01 * BY THE TMCT 

01 UPDATE TO NEXT GFMB 

01 POINT TO FIRST GFBE 

01 POINT GFCB TO FIRST FREE GFBE 

01 TURN ON INITIAL ALLOCATION FLAG 

01 CALC ADDR OF NEXT GFCB 

01 WHILE THERE ARE GFBE * S TO BE CHAINED - DO 

02 GET ADDR OF NEXT GFBE 
02 PCINT TO NFXT FREE GFBE 
02 UPDATE BASE TO NEXT GFBE 
01 ENDDO 

01 ZERO NEXT PTR IN LAST GFBE 
ENDDO 

ZERO NEXT PTR IN LAST GFCB 

CALCULATE TOTAL CORE REQUIRED FOR GETWA — CO A GETMAIN FOR THE CORE 

* THEN ALLOCATE IT TO THE GFCB'S 
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Figure 3-38. DPINIT11 

DPINITU - INCLUDED ROUTINE - POST CODE ERROR ROUTINE 
BGNSEG 

01 GET ECB ACCR CLEAR H I— ORDER BYTE 

01 GET AODR OF INITCB WITH BAD POST CODE DR5C87 

01 ISSUE THE ERROR MESSAGE WITH ECB CONTENTS 

01 IF THIS IS A PRE-RESTART PATCH 

02 TURN ON POST ERROR FLAG 
01 END I F 

ENDSEG DPINITll *: RETURN TO CALLER 



Figure 3-39. DPINIT12 



BGNSEG DPIMT12 - PROBE INTERFACE 

CIRB CREATE IRB 

SCHEDULE IRB UNDER TIME TASK (OPPCTIME) TC SUPPRESS 
* TIMING UNTIL PRC BE COMPLETES 

PATCH PROBE FUNCTION (OGMIRPWT) 

WAIT TILL IT CCMPLETES 

POST IRB TO EXIT 

FNOSEG DPINIT12 



Figure 3-40. DPINIT13 



BGNSEG DPINIT13 - CONTINUOUS MONITOR INTERFACE 
01 PATCH CONTINUOUS MONITOR (DOMIRCMN) 
ENDSEG CPINIT13 



Figure 3-41. DPINIT14 



BGNSEG CPINIT14 TIME IRB ROUTINE 
01 WAIT FOR PRCBE TO COMPLETE 
ENDSEG DPINITU 
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Figure 3-42. DPINIT2 



DPINIT2 - INCLUOEC SEGMENT - INITIALIZE CEGET CORE 

CALCULATE THE AMOUNT OF CONTROL BLOCK (PROTECTED) CORE TO GET 

IF CBGET CORE WAS REQUESTED AT RUN TIME 
01 GET THE NUMBER OF 2K BLOCKS REQUESTED 
01 CALC AMOUNT OF CBGET CORE REQUIRED 

ELSE 

01 GET # TCB'S REQUESTED 

01 GET THE TCBX LENGTH 

01 CALC AMT OF CORE REQ«D FOR TCBX'S 

01 ROUND TO 2K 

01 ADD SAFETY FACTOR TO CBGET CORE REQUIREC 
END IF 

GETMAIN FOR CBGET CORE FROM SUBPGOL 253 
INITIALIZE CBGET CORE AND CONTROL BLOCKS 

INITIALIZE A PROTECTED STORAGE CONTROL BLOCK (PSCB) AT THE START 

* OF CBGET CORE AND ALLOCATE ALL CORE TO IT 

INITIALIZE U FREE 32 BYTE BLOCKS 

GET DUMMY PSCB AD DR IN SCVT 

CHAIN NEW PSCB TO SCVT 

MAKE SCVT LAST USED PTR PT TO NEW 
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Figure 3-43. DPINIT3 



DPINIT3 - INCLUDED SEGMENT 
LOAD SYSTEM MONITOR - DPPTSMON 
LOAD ETXR ROUTINE - DPPTETXR 
PUT INITIAL # TCB'S IN TMCT 
PUT # FREE TCB'S IN TMCT 

DO A GETMAIN FOR A TCBX - INITIALIZE IT AND CHAIN IT TO THE * 
* CURRENT TCB WHICH WILL BECCME THE TCB FOR DPPTSMCN * 
LOAD PATCH MONITOR - DPPTPMON 
LOAD PMCN STAE ROUTINE P«F#166 
LOAD PURGEWQ ROUTINE 
LOAD TRANSWA ROUTINE 

UNTIL ADVANCE TCB'S GOTTEN AND INITIALIZED - DO 
01 CREATE AND CHAIN ADVANCE TCB'S AND TCBX'S 

01 IF CBGET CORE NOT AVAILABLE 

02 ABEND - USER 33 
01 6NDIF 

01 INITIALIZE GOTTEN TCBX, CHAIN IT ON FREE 0 , AND USE POST TO CHAIN 
01 * IT TO TCB 
ENDDO 

COPY DP IN IT 5 - TWO PARTITION SYNC ROUTINE 
LOAO DPPXDEFL - DEFLOCK ROUTINE 
LCAO CPPTGWFW - GET/ FREEWA BR SUBROUTINE 
PUT GETfaA BR SUBRTNE ADDR IN THE SCVT 
PUT XCVT ADDRESS IN GETWA SUBROUTINE 
LOAO CPPXLCCK - LCCK ROUTINE 

PUT OS DEFAULT SVC'S IN DUPLICATE CATA SET ROUTINE ADDRESSES 
IF DOS WAS GENERATED 
LOAD DCS ROUTINES 

PUT DOS ROUTINES ADDRESSES IN SCVT 
LOAD CPPXDRCX - CAT A RECORD DUMMY ROUTINE 
LINK TO DATA BASE INITIALIZATION 
IF A WRITE RESTART CARD WAS PROCESSED 
01 ZERO REG1 FOR DPPMINIT 
ELSE 

01 NON-ZERO REG 1 TC SHOW NO WRT— RST 
END IF 

LINK TC MSG HANDLER INITIALIZATION 
LINK TO TIME MANAGEMENT INITIALIZATION 
LINK TO DB LOGGING INIT IL IZAT ION 
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Figure 3-44 (1 of 2). DPINIT5 

0PINIT5 - INCLUDED SEGMENT - TWO PARTITION SYNC ROUTINE 

IF BYPASS SYNC CODE 

ELSE 



01 IF THIS IS THE MASTER PARTITION 

02 ENC MASTFR-MAST E R JO BN AM E 

01 ELSE 

02 FNC MASTER- MASTER JOBNAME 
01 END I F 

01 IF THIS IS NDT A RESTART CF SLAVE PARTN 

02 IF THIS IS THE MASTER PARTITION 

03 ENC MYNAMF. - CThERNANE ( MASTER- SLAVE ) 

02 ELSE 

03 ENQ CTHEPNAME - MYNAP £ (MASTER- SLAVE) 
02 fcNDIF 

02 IF RFT CODE GT 0 - OTHER PTN STARTED 

03 STRTSRCH FIND OTHER 
03 EXITIF JOBNAME FOUND 

03 EXITIF WITH NON-ZERO TCB KEY 
64 PUT HIS XCVT ADDR IN MY XCVT 

04 POST HIM WITH MY XCVT ADDR 

03 ENDLOOP 

04 ABEND - USER 36 
03 ENDSRCH 

02 ELSE 

03 GET THE ADDR CF MY 2ND XCVT FIELD 
03 PUT IT IN ECR LIST TO USE AS ECB 
03 ISSUE TIMER WAIT 

03 ISSUE SYNC MSG 

03 WAIT CN CNE OF THE ECB'S 

03 IF TIMFR EXPIRED 

04 CLEAR ECB 

04 BRANCH BACK AND REISSUE TIMER WAIT 

03 ELSE 

04 IF I AM THE MASTER PARTITION 

05 DEC MYNAME - OTHERNAME ( MASTER— SLAVE! 

04 ELSE 

05 DEC OTHERNAME - MYNAME (MASTER- SLAVE) 
04 END I F 

04 STRTSRCH 

05 FINO THE CTHER JOBNAME 
04 EXITIF OTHER PTN FCUND 

04 ENDLOOP 

05 ABEND - USER 36 
04 ENDSRCH 

04 GET HIS XCVT ADDR 

03 END IF 

02 ENDIF 

02 IF THIS IS THE MASTER PARTITION 

03 ENQ JOBNAME MASTER-MASTER 
02 END I F 
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Figure 3-44 (2 of 2). DPINIT5 



0? PUT HIS TCB ADDR IN MY SCVT 

0? PUT HIS SCVT ADDR IN MY SCVT 

02 PUT HIS L0 BCUNCARY IN MY SCVT 

02 PUT HIS HI ROUNCARY IN MYSCVT 

01 ELSE 

02 THIS TS A SLAVE PARTITION BEING RE-STARTED AFTER A FAILURE 
02 STRTSRCH SEARCH TCB CHAIN 

02 EXITIF MASTER JOBNAME FCUND IN A PARTN 

02 EXITIF fclTH A NZERO TCB KEY 

02 ENDLOOP 

02 ENDSRCH 

02 IF MASTER IS NOT CURRENTLY ABENDING 

03 IF TFFRE IS NO SLAVE CURRENTLY RUNNING 

04- TURN CN TWO P ART I T I CN AND SLAVE RE-SYNC FLAGS 

OA- PUT MY SCVT ADDR IN HIS SCVT 

04 PUT MY XCVT ADDR IN HIS XCVT 
04 PUT MY TCB IN HIS SCVT 

04 PUT HIS TCB IN MY SCVT 

04 PUT HIS SCVT ADDR IN MY SCVT 

04 PUT HIS XCVT ADDR IN MY XCVT 

04 PUT MY PTN LD BNDRY IN HIS SCVT 

04 PUT MY PTN HI BNDRY IN HIS SCVT 

04 PUT HIS PTN LO BNDRY IN MY SCVT 

04 PUT HIS PTN HI BNDRY IN MY SCVT 

03 ELSE 

04 ABEND - USER 44 
03 END IF 

02 ELSE 

03 ABEND - USER 43 
02 FNDIF 

01 END IF 



END IF 



Figure 3-45. DPPCALCF 

DPPC ALCF-MA I N SEGMENT CALCULATE CONVERSION FACTOR 

01 INITIALIZE DPPCALCF WORK AREA 

01 COPY CPCALCF1 CALCULATE EXTERNAL TIME 

01 PTIME RET GET CURRENT TIME 

01 SUBTRACT TIME FROM EXTERNAL TIME 

01 STORE TIME DIFFERENCE IN PARAMETER AREA 
RFTURN 
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Figure 3-46. DPPCPTIM 

DPPCPTIM-MAIN SEGMENT ISSUE PATCHES 

01 INITIALIZE WCRK AREAS 

01 SETPSW TO GET PRCTECT KEY 0 

01 POST DPPITIMI TO LET HIM KNOW THAT • I M READY 

01 UNTIL JOBSTEP TASK ABENDS FOREVER AND EVER AND... 

02 WAIT UNTIL POSTED BY CPPCTSVC CP CPPCTIME 
02 LCCK ON TIME ARRAY 

02 IF POSTED BY CPPCTSVC REMCVE PTQC 

03 WHILE MORE PTQE'S ON CHAIN 

04 IF THIS PTGE IS TO BE DELETED 

05 IF PTOE TO BE DEPATCH 

06 DEPATCH 
05 ENDIF 

05 IF PTOE TO BE POSTED 

06 POST ECB 
05 ENDIF 

05 IF PPOBL TO BE FREED 

06 FREE MA IN PROBL 
05 ENDIF 

05 CHAIN REMOVE PTQE FRCM PTQE CHAIN 

05 CBFRFE FREE PTQE CCNTROL BLOCK 

04 ENDIF 

03 ENDDO 

02 ENCIF 

02 IF POSTED BY DPPCTIME 

02 UNTIL ALL PTCE'S IN THIS TIME INTERVAL HAVE BEEN SERVICED 

03 CALCULATE NEXT PTQE TIME 

03 IF THIS WILL BE THE LAST PATCH 

04 SET FLAG TO FREE PROBL DURING PATCH 
03 ENDIF 

03 PATCH THIS PTQE 

03 IF THIS WAS LAST PATCH FOP THIS PTCE OR THE PATCH WAS BAD 

04 MESSAGE SPECIFYING BAD PATCH RETURN CODE 

04 IF DEPATCH SPECIFIED 

05 CEPATCH 
04 END IF 

04 IF PTQE TO BE POSTED 

05 POST ECB 
04 ENDIF 

04 IF PROBL TO BE FREED 

05 FR EE MA I N PROBL 
04 END I F 

04 CHAIN REMOVE PTQE FRCM PTQE CHAIN 

04 CBFREE FREE PTQE CCNTPOL BLOCK 

03 ELSE 

04 CHAIN REMOVE PTQE FROM PTQE CHAIN 

04 CHAIN ADD PTQE TO CORRECT POSITICN ON CHAIN 

03 ENDIF 

02 ENCCO 

02 ENDIF 

02 UNLOCK TIME ARRAY 

02 ENDDO 

01 RETURN o 4 i 
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Figure 3-47. DPPCTIME 

DPPCTIME-MAIN SEGMENT TIME UPCATE PROGRAM 

01 INITIALIZE DPPCTIME WORK AREA 

01 POST CPPITIME LET HI* KNCW I'M READY 

01 UNTIL JOB STEP TASK CANCELED FOREV ER t ANC EVER, AND EVER ... 

02 STIMER WAIT FOR SYSGENED TIME INTERVAL 
02 READ TOD COUNTER VALUE 

02 CALCULATE CURRENT TIME CF CAY 

02 IF CURRENT TIME OF DAY IS INCONSISTENT WITH THE EXPECTED TIME 

03 COPY CPCTIME2 CORRECT TIME 

02 ELSE 

03 COPY DPCTIMEl CALCULATE CURRENT TIME 
02 END IF 

02 IF PTQE SHOULC BE SFRVICED DURING THIS INTERVAL 

03 POST CPPCPTIM 
02 END IF 

02 UPCATE FAILCVER COUNT IN TIME ARRAY 

01 ENCCC 
RETURN 

Figure 3-48. DPPCTSVC 

DPPCTS VC-MA IN SEGMENT PTIME REQUESTS 

01 INITIALIZE WORK AREA 

01 IF IT'S A REQUEST FRC M THE SLAVE PARTITION 

02 SET SLAVE FLAG 
01 END I F 

01 CASE ENTRY DETERMINE TYPE OF PTIME REQUESTS 

02 COPY CPCTSVC1 CALCULATE CURRENT TIME 
02 COPY CPCTSVC2 ADD PTCE TO PTQE CHAIN 

02 COPY CPCTSVC3 MODIFY PTQE 1 S ON PTQE CHAIN 

02 COPY DPCTSVC4 DELETE PTQE' S CN PTQE CHAIN 

01 EN C CASE 
RETURN 

Figure 3-49. DPPCUPCF 

DPPCUPCF-MAIN SEGMENT UPDATE CCNVERSICN FACTOR 

01 INITIALIZE CPPCUPCF WORK AREA 

01 LOCK TIME ARRAY, TYPE^LOCK EXCLUSIVE CONTROL OF TIME ARRAY 

01 COPY DPCUPCF1 UPDATE CONVERSION FACTOR 

01 COPY CPCUPCF2 LP C ATE TIME 

01 COPY DP CUPCF3 UPCATE DATE 

01 COPY CPCUPCF4 LPCATF PTQE»S 

01 LOCK TIME ARRAY, TYPE=UNLOCK RELEASE CCNTROL OF TIME ARRAY 



RETURN 
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Figure 3-50 (1 of 3). DPPDARAY 

* ********** **** *** * 4* ***** * ************ ******************* ************* 

* * 

*:* CPPCARAY * 

*:♦ * 

*:* CAT A BASE SUPPORT ROUTINE FOR GETARRAY AND PUT ARRAY. * 

*:* * 

* * 

*************************** 4* ********** 4*4 **************** ************* 



*********************************************************************** 

01 CONVERT REQUEST OPTIONS TO INTERNAL FORMAT 

01 SET RETURN CODE TC ZEPC 

01 ESTABLISH BEGINNING AND END OF REQUEST LIST 

01 IF PUT ARRAY GR PPCTECT=YES AND CATA TO BE MOVED 

02 SET DATA BASE LOCK 
01 END IF 

01 IF NAMES OR NUMBERS WERE SUPPLIED 

02 DO UNTIL ALL ENTRIES PROCESSED 

03 IF ARRAY NAMES SUPPLIED BY CALLER 

04 SCAN PAGE BCUNDRY TABLE FOR NAME RANGE 

04 SCAN SECONDARY ARRAY LOCATOR FOR ARRAY NAME 

04 CONVERT TABLE ENTRY TO ARRAY ID 

03 ELSE USER SUPPLIED ARRAY NUMBER 

04 IF USER SUPPLIED NUMBER NOT VALID 

05 DC ERROR 
04 END IF 

03 END I F 

03 FIND ENTRY IN PRI. A.L.7. FOR THIS ARRAY 

03 IF USER REQUESTED ADDRESSES 

04 MOVE ARRAY ADDRESS, NO. OF BLKS AND BK SIZE 

05 TO USER'S AREA 
04 ELSE 
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Figure 3-50 (2 of 3). DPPDARAY 

05 IF ARRAY SPEC IF ICAT IGNS REQUESTED 

06 0C SPECMOVE 

05 ELSE 

06 IF DATA MOVE REQUESTEC 

07 DO MOVED ATA 
06 ENDIF 

05 ENCIF 
04 ENDIF 
03 ENODO 

02 ELSE USER SUPPLIED ADDRESSES 

03 DO UNTIL ALL ENTRIES PROCESSED 

04 ESTABLISH ADDRESSES IN DATA BASE AND USER'S AREA 

04 IF GETARRAY EXECUTED 

05 MOVE DATA FROM ARRAY TO USERS AREA 

04 ELSE USER EXECUTED PUTARRAY 

05 HOVE DATA FROM USER'S AREA TO DATA BASE 
04 ENDIF 

03 ENDDO 
02 ENDIF 

02 IF LOCK ViAS SET 

03 RELEASE LCCK CF OATA BASE 
02 ENDIF 

02 RETURN TO CALLER, 
01 ** 
01 ** 

01 ** SEGMENT MCVECATA 

01 ** VALIDATE ALT ENTRY AND MOVE DATA 

01 ** 

02 IF ARRAY IS DIRECT ACCESS RESIDENT 

03 DC ERROR OPERATION INVALID 

02 ELSE IT IS VS RESIDENT 

03 GET ARRAY CLOCK SIZE 

03 IF BLOCKED ARRAY 

04 MULTIPLY BY ELOCK COUNT 
03 ENDIF 

03 GET ADDRESS OF USER'S AREA 

03 IF GETARRAY SPECIFIED 

04 MOVE ENTIRE ARRAY TO USER'S AREA 

03 ELSE PUT ARR AY WAS SPECIFIED 

04 MOVE CAT A FRCM USER'S AREA TO CAT A EASE 
03 EKDIF 

02 END IF 

02 END SEGMENT MOVECATA 
01 ** 
01 ** 

01 ** SEGMENT EPPCR 

01 ** SAVE COUNT OF ERRORS AND SET RETURN CODE 

01 ** 
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Figure 3-50 (3 of 3). DPPDARAY 



02 IF FIRST ERROR 

03 SAVE ADDR OF USER'S PARAMETERS 
02 ENDIF 

02 ADC 1 TO COUNT CF ERRORS 
02 SET RETURN CODE TO 4 
02 END SEGMENT ERROR 
OL ** 
01 ** 

OL ** SEGMENT SPECMGVE 

01 ** USER REQUESTED SPEC'S FOR ITEMS IN ARRAY 

01 ** 

02 ALLOCATE WORK SPACE 
02 SET LOCK 

02 FIND DCB FOR OBINIT DATA SET 

02 POINT TO ITEM RECORD FOR THIS ARRAY 

02 REAC ALL RECOROS OF ITEM DEFINITIONS THIS ARRAY 

02 RELEASE LOCK 

02 RELEASE WORK SPACE 

02 END SEGMENT SPECPOVE 
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Figure 3-51. DPPDBLOK 

DPPDBLCK-GETBL CCK /PUT BLOCK MAIN SEGMENT 



01 UNTIL ALL ARRAYS HAVE BEEN PROCESSED 

02 IF NUMBERED ARRAY THEN 

03 ARRAY ID * NUMBER 

02 ELSE 

03 FIND SALT PACE FOR THIS ARRAY NAME 
03 FIND ARRAY NAME IN THIS SALT PAGE 

03 CALCULATE ARRAY ID ( 1 0=D I S PL AC EMENT INTO SALT TABLES / SALT SIZE) 

02 ENDIF 

03 FIND PALT 

03 IF PROTECT REQUESTED 

04 IF VS RESIDENT ARRAY 

05 LCCK ON VS CAT A BASE 

04 ELSE 

05 LCCK ON DA C ATA EASE 
04 ENOIF 

03 ENDIF 

03 UNTIL ALL BLCCKS OF THIS ARRAY »-AVE BEEN MOVED 

04 IF VS RESIDENT ARRAY 

05 IF PUTBLOCK 

06 MOVE BLOCK INTO ARRAY 

05 ELSE 

06 MOVE BLCCK INTO USER AREA 
05 ENDIF 

04 ELSE 

05 IF PUTBLCCK 

06 WRITE BLOCK TO DA ARRAY 

05 ELSE 

06 READ DATA INTO URER AREA 
05 END IF 

04 ENDIF 

04 ENDDO 

03 IF PROTECT REQUESTED 

04 UNLOCK 
03 ENDIF 

02 ENDDO 



01 ENDSEGMENT 
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Figure 3-52. DPPDBSIF 

DPPCBS IF-MAIN SEGMENT CAT A BASE TASK TO READ/WRITE CATA 

* FROM THE DATA BASE FOR THE SLAVE PARTITION 
01 SFTPSW TO GET PROTECT KEY ZERO TO STORE INTO SLAVE 
01 BALR TO CATA BASE ROUTINE REQUEST EC 

* NOTE : DPPDSUB2 SETS UP THE REQUIRED REGISTERS THEN 

* PATCHES DPPDBSIF TO DO THE WORK 
01 RETURN 

ENDSEGMENT 



Figure 3-53. DPPDFREQ 



DPPDFREQ - TIME DRIVEN LOGGING 
Oi LOAO ID FROM PA RM LIST 
01 IF 10 IS NZERO 

01 LOAD PUTLOG KO. LIST BASED ON THIS ID 
01 PUTLOG 

01 ELSE 

02 BUILD UPCATEO REFRESH ARRAY USING THE CURRENT LOG COPIES 
02 PUTBLOCK UPDATE REFRESH ARRAY 

01 END I F 

ENDSEGMENT 



Figure 3-54. DPPDGETL 

CPPDGETL - MAIN SEGMENT GET LOG ROUTINE 

01 IF NUMBERED ARRAY 

02 ARRAY ID * NUMBER 

01 ELSE 

02 FIND SALT PAGE FOR THIS ARRAY NAME 
02 FIND ARRAY NAME IN THIS SALT PAGE 

02 CALCULATE APR4Y ID {^DISPLACEMENT INTOSALT TABLES/ SALT SIZE) 

01 END I F 

01 FIND PALT 

01 FIND CURRENT LGGI-E ADER 

01 FIND LOG ARRAY PALT 

01 IF NC REFERENCE TIME 

02 USE CURRENT LCG TIME 
01 ENDIF 

01 BUILD GETBLOCK CATA LIST 

01 SEARCH FOR REQUESTED BLOCK 

01 GETBLOCK-RE AD IN REQUESTED LOG COPY 
ENDS EGME NT 
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Figure 3-55 (1 of 4). DPPDITEM 



** ****** *********** ****** ** **** ********** * ********* ****** 4 *********** 

* * 

*:* DPPDITEM * 

* : * * 

*:* CAT A BASE SUPPORT ROUTINE FOR GET ITEM AND PUT ITEM* * 

* : * * 

* * 
*************************************** 4* ********************* ********* 

* * 
*:* FUNCTION- * 
*:* ENTERED VIA 8ALR FROM THE APPLICATION PROGRAM AS THE * 
*:* RESULT OF THE EXECUTION OF A GETITEM OR PUT ITEM MACRO. * 
*:* THIS PROGRAM, WHEN ENTERED, DO ONE OF THE FOLLOWING* 
*:* 1) MOVE INTO THE USER'S AREA, THE DATA FROM CNE OR * 
*:* MORE ITEMS. * 
*:* 2) MOVE INTO THE USER'S AREA, THE ADDRESSES OF CNE * 
*:* OR MORE ITEMS, * 
*:* 3) MOVE INTO THE LSER'S AREA, THE DEFINITION SPEC- * 
*:* IFICATIONS OF ONE OR MORE ITEMS. * 
*:* 4) MOVE INTO THE DATA BASE, CNE OR MORE SPECIFIC * 
*:* ITEMS OF DATA FROM THE USER"S AREA. * 
*:* * 

* * 
*************************************** ******************************** 

01 CONVERT INPUT OPTIONS TO INTERNAL FORMAT 

01 SET RETURN CODE TO ZERO 

01 IF PUT ITEM SPECIFIED AND NOT DATA MOVE 

02 SET RETURN CODE TO 8 

01 ELSE 

02 IF ITEM NAMES SPECIFIED 

03 DO NAMESOLV 

03 IF ITEM SPECIFICATIONS REQUESTED 

04 DO MOVESPEC 

03 ELSE 

04 CO CCNVSPEC 

04 IF ITEM ADORESSES REOUESTEC 

05 DO MOVE ADDR 

04 ELSE 

05 IF DATA MOVE REQUESTED 

06 DO MCVEDAT A 

05 ELSE 

06 SET RETURN CODE TO 8 
05 END IF 

04 END IF 

03 ENDIF 

02 ELSE 

03 IF AODRESSES WERE SUPPLIED 

04 IF CATA WAS REQUESTED 

05 DO MCVEDAT A 

04 Mf% ELSE 
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05 SET RETURN CODE TO 8 

04 END IF 

03 ENDIF 
02 ENDIF 
01 END IF 

01 RFTUPN TO CALLER 
** 
** 

** SEGMENT f^AMESCLV 

** RESOLVE ITEM NAMES TC ARRAY ID ♦ DISPLACEMENT 

** 

01 ESTABLISH NO. OF NAMES TO RESOLVE 
01 ALLOCATE AND INITIALIZE WORK SPACE 
01 SORT NAMES INTO COLLATING SEQUENCE 

01 DO UNTIL ALL NAMES RESOLVED 

02 READ NEXT BLCCK OF ARRAY SCIDS 

03 IF NEXT NAME NOT IN THIS BLOCK 

04 READ NEXT BLOCK 

03 ELSE 

04 MOVE ITEM SPEC. CAT A TC WORK SPACE 
04 STEP TO NEXT NAME 

03 ENDIF 
02 ENODO 

02 SORT NAMES AND C AT A BACK TO ORIGINAL SEQUENCE 
02 ENOSEG NAMESCLV 
01 ** 
01 ** 

01 ** SEGMENT MOVESPEC 

01 ** MOVE ITEM SPECIFICATIONS TO USER'S AREA 

01 ** 

02 ESTABLISH ADDRESSES WHERE SPEC. CAT A IS TO GO 

03 DO UNTIL ALL ITEMS PROCESSED 

04 MOVE SPEC CATA 
03 EKDDC 

02 ENDSEG MCVESPEC 
01 ** 
01 ** 

01 ** SEGMENT MOVE ADDR 

01 ** HOVE ITEM ADDRESSES TO USER'S AREA 

01 ** 

02 ESTABLISH CCUNT CF ITEMS AND MOVE TO ADDRESSES 

02 DO UNTIL ALL ITEMS PROCESSED 

03 IF ADDRESS WAS NOT RESCLVED 

04 SET RETURN CCOE TO 4 

03 ELSE 

04 MOVE ITEM ADDRESS TO USER'S AREA 
03 ENDIF 

02 ENDDC 
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02 IF LIST CF NAMES WAS SPECIFIED 

03 MOVE END OF LIST FLAG TO USER'S AREA 
02 ENDIF 

02 FNDSEGME NT MOVE ADDR 
01 ** 
01 ** 

01 ** SEGMENT MOVEC AT A 

01 ** MOVE ITEM DATA TO USERS AREA 

01 ** OR FPOM USER'S AREA 

01 ** 

02 IF CALL FPCM PUT ITEM 

03 SET TG MOVE TO DATA BASE 

02 ELSE 

03 SET TC MOVE TO USER'S AREA 
02 END IF 

02 IF PUT ITEM OR PROTECT SPECIFIED 

03 IF WORK SPACE NCT ALLOCATED 

04 ALLOCATE AND FORMAT fcORK SPACE 
03 END IF 

03 SET LCCK 

02 ENDIF 

02 IF CKLY CNE NAME SPECIFIED 

03 IF THE ADDRESS WAS NOT RESOLVED 

04 SET RETURN CODE TO 4 

03 ELSF 

04 IF ITEM LENGTH IS ZERO 

05 SET RETURN CODE TO 4 

04 ELSE 

05 VCVE ONE ITEM OF DATA 
04 ENCIF 

03 ENDIF 

02 ELSE 

03 ESTABLISH AODR OF LIST OF ITEM ACCRESSES 

03 IF USER DID NCT SPECIFY DATA I NCR EMENT- 

04 USE LENGHE AS DEFINED FOR EACH ITEM 

03 DO UNTIL ALL ITEMS MCVED 

04 IF DATA ADCRESS IS ZERO 

05 SET RETURN CODE TO 4 

04 ELSE 

05 MOVE DATA FOR LENGTH OF ITEM 
04 ENDIF 

04 INCREMENT USER'S AREA ADCRESS BY LENGH OF ITEM 

03 ENDDO 

02 ELSE USE THE INCREMENT SPECIFIEC BY USER 

03 DO UNTIL ALL ITEMS MCVED 

04 IF DATA ADDRESS IS ZERO 

05 SET RETURN CODE TC 4 
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04 ELSE 

05 MOVE CAT* FOR LENGTH OF ITEM 
04 ENOIF 

04 INCREMENT USER'S AREA ADDRESS BY INCR. SPECIFIED 

03 ENDDO 
02 END IF 

01 END IF 

01 IF LCCK WAS SET 

02 RELEASE LCCK 
01 END I F 

01 END SEGMENT MOVECAT A 
** 
** 

** SEGMENT CONVSPEC 

** CCNVERT FROM ARRAY I D/C ISPLACEMENT 

** TO ADDRESS OF ITEM 

** 

01 ESTABLISH COUNT AND ACDRESS CF ENTRIES 

01 DO UNTIL ALL ENTRIES CONVERTED 

02 IF ITEM NAME WAS RESOLVED 

03 IF ITEM IS IN VS RESIDENT ARRAY 

04 IF USER SPECIFIED BLOCK NUMBER 

05 IF ITEM IS IN BLCCKED ARRAY 

06 IF BLOCK NUMBER IS VALID 

07 CALCULATE ITEM ACDRESS 

06 ELSE 

07 SET RETURN CODE TO 4 

07 SET ITEM ADDRESS TO ZERO 

06 ENDIF 

05 ELSE ITEM IS IN UNBLOCKED ARRAY 

06 IF BLOCK NUMBER WAS SPECIFIED 

07 SET RETURN CODE TO 4 

07 SET ITEM ADDRESS TO ZERO 

06 ELSE 

07 CALCULATE ITEM ADDRESS 
06 ENDIF 

05 END IF 

04 ELSE THE USER DID NOT SPECIFY BLOCK NUMBER 

05 CALCULATE ITEM ADDRESS 
04 ENDIF 

03 ELSE IT IS FOR D.A. RESIDENT ARRAY 

04 SET RETURN CODE T04 

04 SET ITEM ADDRESS TO ZERO 

03 END I F 

02 ELSE THE ITEM NAME WAS NOT RESOLVED 

03 SET RETURN CCCE TO 4 
02 END IF 

01 ENDDO 

01 END SEGMENT CONVSPEC 
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DPPDPUTL-PUTLOG SUBROUTINE 

01 UNTIL ALL /ARRAYS HAVE BEEN PROCESSEO 

02 IF NUMBE RED ARRAY 

03 ARRAY fO = NUMBER 

02 ELSE 

03 FIND SALT PAGE FOR THIS ARRAY NAME 
03 FIND ARRAY NAME IN THIS SALT PAGE 

03 CALCULATE ARRAY ID ( ID= DISPLACEMENT INTO SALT TABLES/ SALT SIZEI 

02 ENDIF 

02 FIND PALT 

02 FIND CURRENT LCG HEADER 

02 IF LOGHDR SPECIFIED 

03 FIND LCG ARRAY PALT 

03 BUILD PUTBLCCK NUMBER LIST BASED ON LOG HEADER LOG COPY 

03 PUTBLOCK 

02 ELSE 

03 IF BLKLIST SPECIFIED 

04 FIND LCG ARRAY PALT 

04 BUILD PUTBLOCK NUMBER LIST BASEO ON CURRENT LOG COPY 

04 PUTBLOCK 

03 ENDIF 

02 END IF 

02 IF NOPMAL PUTLOG REQUEST 

03 RESET CURRENT LOG COPY 

03 IF LOG CCPY 1 THEN 

04 SET FIRST LOG COPY TIME OF DAY 
03 END I F 

03 FIND LOG ARRAY PALT 

03 BUILD PUTBLOCK NUMBER LIST BASED ON NEW LOG COPY 

03 PUTBLOCK 

03 IF THIS WAS THE LAST LCG COPY AND 

03 IF A WRAP ARROUND ROUTINE WAS SPECIFIED 

04 PATCH DEPENDENT TASK WRAP ARROUND ROUTINE 
03 END I F 

02 END I F 

01 ENDDI 

ENDSEGMENT 
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DPPDRIFT MAIN SEGMENT 

DPPDRIFT IS THE TIME DRIFT CORRECTION MODULE 
UNTIL CUT OF INI T 
01 VvAIT FOR EXT I NT AND GET TOD VALUE 

ENDDO 

IF S370/EMS IN SYSTEM 
01 PATCH EMS TIME START UP TASK 
ELSE 

01 LINK TO TIME INITIAL SET UP - DPPDRIFS 
END I F 

WHILE TCP CLOCK VALID (NCT IN ERROR HCWR) 



01 IF TOD LT NEXT AND 

01 IF TOD GT PREV 

0? IF ERROR LT 1 SEC 

03 IF TOD CLCCK TOO SLOW 

04 CORRECT FOR DRIFT 

03 ELSE TOC CLCCK MAY BE TOO FAST 

04 SAVE ERROR AMT 

04 IF 5 VALUES SAVED 

05 GET PIN CORRECTION FACTOR FRCM LAST 5 
05 CORRECT FCP. DRIFT 

04 END I F 

03 END I F 

02 END IF 

02 ACJLJST TIMES FOR NEXT INTERRUPT 

01 ELSE TOD CLOCK CUT CF RANGE 

02 IF TOD CLOCK FAR IN FUTURE 

03 ADVANCE EXPECTED TIMES 
02 END I F 

01 END I F 



BGNWHILE 

01 WAIT FOR EXT INTERRUPT AND READ TOD CLOCK 

ENDDO 

ISSUE MESSAGE THAT TOD CLOCK INVALID (ERRCR STATE OR NOT 3PERAT ICNAL ) 

WAIT FOREVER 

ENDS EG^ENT CPPDRIFT 
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DPPDSUB2-DATA, EASE INTERFACE ROUTINE FOR 2 PARTITICNS 



01 DPDSUB2A- EN TRY PCINT FGR GET ARRAY/ PUT ARRAY REQUESTS 

02 PREPARE REGS TO EXECUTE MASTER PART IT ICN ROUTINES 
02 RR AN CH TO COPNCN ROUTINE- 0PDSU82C 

01 DPCSUB2 l-ENTRY PCINT FGR GET ITEM/PUT ITEM REQUESTS 

02 PREPARE REGS TC EXECUTE MASTER PART IT ICN ROUTINES 
02 PR ANCH TO COMNCN ROUTINE 

01 0PDSUB2B-ENTRY PCINT FOR GET BLOCK/ PUT BLOCK REQUESTS 

02 PREPARE REGS TC EXECUTE MASTER PARTITION ROUTINES 
02 BRANCH TC CGNMCN ROUTINE 

01 0PDSUB2G-FN TRY PCINT FOR GETLOG REQUESTS 

02 PREPARE REGS TO EXECUTE MASTER PARTITION ROUTINES 
02 BRANCH TO CC^MCN ROUTINE 

01 DPCSUB2 P-ENT RY POINT FOR PUTLOG REQUESTS 

02 PREPARE REGS TO EXECUTE MASTER PARTITION ROUTINES 
02 BRANCH TO CC*MCN ROUTINE 

01 DPDSUB2D-ENTRY POINT FOR DUMPLOG REQUESTS 

02 PREPARE REGS TC EXECUTE MASTER PARTITION ROUTINES 

02 BRANCH TC COMMON ROUTINE 

01 DPDSUB2C-CCNWCN ROUTINE 

0? IF REQUEST IS VALID FOR 2 PARTITIONS 

03 IF BRANCH ENTRY IS OK 

04 SETPSW TO GET PROTECT KEY 0 
04 BALR TO MASTER ROUTINES 

03 ELSE 

C4 PATCH C ATA BASE TASK IN MASTER PARTITION 

04 WAIT FOR CCMPLETICN 
03 END I F 

02 ELSE 

03 SET RETURN CODE 
02 ENDIF 

Oi RETURN 



ENOSEGFENT 
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DPPDUMPL— MA I N SEGMENT DUMP LOG ROUTINE 



01 READ JFCB FOR SPECIFIEO DUMPLOG OD NAME 

01 IF DISF=CLD CR NEW t THEN 

02 IF OUMPLOG REQUEST DISP=NEW,OR 

02 IF DISP^NEW tTHEN 

03 SET TO OPEN IT NEW BUT TO RESET TO MOD AFTER OPEN 

02 ELSE 

03 SET TO OPEN IT MOD 
02 ENDIF 

01 END I F 

01 OPEN DUMPLGG DC B 

01 IF REPOSITIONING OF DUMPLOG DEVICE REQUIRED 

02 IF DEVICE IS A DISK 

03 POINT TO START OF CATA SET 

02 ELSE IT'S A TAPE 

03 FEOV 
02 ENDIF 
01 END I F 

01 UNTIL ALL ARRAYS HAVE BEEN PROCESSED 

01 IF NUMBERED *RRAY 

02 ARRAY ID = NUMBER 

01 ELSE 

02 FIND SALT PAGE FOR THIS ARRAY NAME 
02 FIND ARRAY NAME IN SALT PAGE 

02 CALCULATE ARRAY ID ( I D=D IS PLAC EMENT INTO SALT TABLE/ SALT SIZE) 

01 ENDIF 

01 FIND PALT 

01 FIND CURRENT LOG HEADER 

01 BUILD DUMPLOG OUTPUT BUFFERS 

01 READ IN RECUESTEC LOG COPY 

01 WRITE OUT LOG COPY TO DUMPLOG DATA SET 



ENDSEGMENT 
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DPPDUPDL - DATA BASE REFRESH 

01 UNTIL ALL ELIGIBLE VS RESIDENT ARRAYS HAVE BEEN REFRESHED 

02 LOCATE LAST CHECKPOINTED BLOCK NUMBER FOR THIS ARRAY 

02 UNTIL MOST RECENT LOG COPY FOUND 

03 GETBLOCK READ IN FIRST BLOCK OF THIS LOG COPY 
02 ENDDO 

02 GETBLOCK READ IN ENTIRE LOG COPY 
01 ENDDO 

ENDSEGMENT DPPDUPDL 
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MGDULE NAME = CPPDWPST 

DESCRIPTIVE NAME = DATA BASE WRITE/RESTART OPEN/CLOSE PCUTINE« 
SAVE CPPI IRB EC E ADCRESS 
SAVE OPEN CLOSE FLAG 

RETRIEVE AOCRESS OF DA DDNAME TABLE 
STORE CEINIT CC8 ADCR IN OPEN/CLOSE LIST 
BAL TO OPEN/CLOSE SEGMENT 
UNTIL ALL CA ARRAY CCBS IN DDNAME TABLE 
Oi ******* ARE PROCESSED 

Oi LOCK THE CA ARRAY DCB UNTIL OPEN/CLOSE FINISH 
01 STORE DCB ADCRESS IN OPEN/CLOSE LIST 
01 BAL TO OPEN/CLOSE SEGMENT 
01 UNLOCK THE DA ARRAY CCB 

ENDDO 

IF OBINIT DCB OPEN 
01 BUILD DIRECTORY ENTRY FOR 3 IN IT ARRAY 

01 IF PRE-RESTART 

02 *******OATA BASE AND POST— RESTART DATA BASE ARE DIFFERENT 
02 ISSUE ERROR MESSAGE (SYSTEM MESSAGE 9) 

01 END IF 
END IF 

BGNSEG *:OPEN/CL0SE SEGMENT 

01 IF PRE-RESTART THEN 

02 CLOSE 0C8 
01 END IF 

01 IF POST-RESTART THEN 

02 open cce 

02 IF DCB NCT CPENED 

03 ISSUE ABEND 12 
02 END IF 

01 END IF 

ENDSEG CPENCLSE 
ENDSEGMENT DPPDWRST 
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ENTRY POINT IADDR 

ADDRESS RETURN CODE 

LOAC ADCRESS TO BE RETURNEC 

CLEAR UPPER BYTE 

SET RETURN CCDE 

INDICATE RETURN 

ENTRY POINT CRBIT 

LOAD LCCATICN TO ALTER 

LOAC ADCRESS OF FLAGS TO OR 

SET REQUESTED FLAGS 

SET RETURN CCDE 

INDICATE RETURN 

ENTRY POINT NCBIT 

AND BIT CCDE 

LOAD LOCATION TO ALTER 

LOAD ADCRESS CF FLAGS TO AND 

DELETE DESI RED FLAGS 

SET RETURN CCDE 

INDICATE RETURN 

ENTRY PCINT COPY 

DATA MOVER CCDE 

HOUSEKEEPING 

GET PCINTER TO INPUT ADDRESSES 

UNTIL FARMS EXHAUSTED DO 
01 GET ADDRESS OF INFUT AREA THUS 
Oi IF INPUT ADDRESS IS NCN-ZERC AND SO 
01 GET ADDRESS OF CUT PUT AREA THiiS» 

01 IF OUTPUT ADCRESS IS NCN-ZERO THEN 

02 IF INPUT GT OUTPUT OR 

02 IF INPUT IS NOT GT ZERC THEN 

03 USE OUTPUT SIZE 
02 END IF 

02 CCPY SIZE OF MCVE 

02 MOVE DATA TO OUTPUT FIELD 

01 END IF 

01 INCREMENT TC NEXT PCINTER 
01 INCREMENT TO NEXT POINTER 

ENDDO 

RESTORE CALLERS REGISTERS 
RETURN EQUALS ZERO 
INDICATE RETURN 
RETURN TC CALLER 



( 
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□PPFIXFR MAIN SEGMENT 

IF ADDRESSES WITHIN PART IT I CN 



01 IF DPPFREE 

02 ISSUE PGFREE 

01 ELSE CPPFIX 

02 UNTIL PAGES FIXED OR NOT POSSIBLE 

03 ISSUE PAGE FIX 
03 IF WAIT NEEDED 

03 IF 

04 WAIT CM PAGING TASK 

04 IF PURGE TOCK PLACE 

05 SET TO TRY AGAIN 

04 ELSE 

05 IF ERROR CODE 

06 SET RETURN ERROR 

05 ELSE 

06 SET NC ERROR RETURN 
05 END IF 

04 ENDIF 

03 ELSE 

04 IF SUCCESFULL 

05 SET GCOD RETURN CCDE 

04 ELSE 

05 SET ERROR RET CCDE 
04 ENDIF 

03 ENDIF 

02 FNODO 

01 END IF 



ELSE 

01 ABEND CALLER 
END IF 

ENDSEGMENT CPPFIXFR 
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DPPIDBAS-MAIN SEGMENT 
INITIALIZE WORK AREA 
GET PROTECT KEY ZERO 

01 IF SLAVE PARTITION INITIALIZATION 

02 COPY CP I0BAS6 
01 ELSE 

COPY DPIDBAS1 READ INITIALIZATION DATA 

IF NC ERRORS CCCURED 
01 COPY DPI CBAS2 BUILD TABLE HEADERS 

01 IF NC ERRORS OCCURED 

02 CCPY DP I CBAS3 CHAIN TABLES TOGETHER 
01 ENDIF 

ENDIF 
01 END IF 

RESET PRCTECTICN KEY 

IF ERRORS HAVE OCCURED 
01 ABEND STEP WITH USER CCMPLETICN CODE 

ELSE 

01 LOAC GETARRAY, GET ITEM, AND GETBLCCK ROUTINES 
01 STORE ROUTINE AOCRESSES INTO THE SCVT 
01 STORE PAGE 8CUNCARY TABLE ADCRESS INTO THE SCVT 
01 STORE ARRAY LOCATOR TABLE ADDRESS INTO THE SCVT 

* NOTE THIS STORE IS DCNE WITH A PCST SVC IN CASE OF 

* SYNCRONI ZATION OF 2 PARTITION OPERATION 
END IF 

ENDSEGMENT DPPICBAS 



Figure 3-65. DPPIIRB 
MODULE NAME = OP P I I RB 

DESCRIPTIVE NAME = DATA BASE CREATE IRE ROUTINE 

PLACE OPPIIRB PSW IN SUPERVISOR STATE 

SAVE DPPIIRB ORIGINAL PSW STATE FLAGS 

CREATE AN I RB FOR DPPDWRST 

SCHEDULE DPPDWRST I RB UNDER JOB STEP TCB 

WAIT UNTIL DPPDWRST HAS OPENED OR CLOSED 

THE CAT A BASE DCBS 

RESTORE DPPIIRB PSW TO ORIGINAL STATE 

IRB ENTRY SEGMENT 

SAVE IRB EC B AOCRESS 

LINK TO OPEN CLOSE ROUTINE 

POST DPPIIRB ECfi 

ENDSEGMENT CPPDIRB 
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DPPILOGN - DATA BASE LOGGING INITIALIZATION 
01 IF MASTER PARTITION BEING INITIALIZED 



02 IF PRE-RESTART THEN 

03 LOAD DPPDGETC GETLOG ROUTINE 
03 LOAD DPPDPUTL PUTLOG ROUTINE 
03 LOAD DPPDUMPL DUMPLOG ROUTINE 

03 INITIALIZE LOGGING CONTROL BLOCKS (LCB) 

03 BUILD ARRAY ID LIST OF EACH LOG FREQUENCY 

03 IF REFRESH REQUESTED THEN 

0*+ LINK TO DPPDUPDL-REFRESH VS ARRAYS 

03 END IF 

03 ISSUE PTIMES ON SPECIFIED LOG FREQUENCY TO DPPDFREQ 

02 ELSE 

03 IF REFRESH REQUESTED THEN 

0*f LINK TO DPPDUPDL-REFRESH VS ARRAYS 

03 END IF 

02 END IF 

01 END IF 



ENDSEGMENT DPPILOGN 
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************************** — DPPINIT — ***************** *********** 



* * 

* *** 4 * 4 * * * 4* 4* 4 ** * * * 4 * ***** * 

* * * * 

* * IN IT IAL IZAT ICN * * 

* * * * 

* ************************** * 

* * 

* DPPINIT - INIT IAL IZATICN ROUTINE * 

* * 



*****************«*******44***********4******** ********* ************* 
IF OPPIMT NCT JOB STEP TASK 
01 ABEND THF JOB STEP - USER 30 
END IF 

CALL DFFIMTO - CARC READ RCUTINF 
IF TCP CARC RE AC 
01 UPCATE #TCPS FCR THIS RUN 
END IF 

IF C6GET CARD REAC 
01 UPDATE AMCUNT CF C8GET CCRE REQUIRED 
END IF 

IF GET W A CARC REAC 
01 OVER-RIDE GETWA TABLE 
END I F 

GET PAGEABLE KEY ZERO CORE (SP-253) FOR XCVT AND SCVT * 
CLEAR XCVT COR F 
INITIALIZE XCVT 
CLEAR SCVT CORE 

INITIALIZE SCVT * 
IF DPR EF = YFS WAS REQUESTED 
01 TURN CN REINIT Ft ^ G 
END I F 

G FT TCB ACCR AND GC TO BBX TO GET PART N HI AND LO ADDRESSES 
PUT JOB STEP TCB ADC R IN SCVT 
IF NOT TWO PARTITION OPERATION 
01 LEAVE T WO PARTITICN FLAG OFF 
ELSE 

01 TURN CN TWO P4RTN OPERATION FLAG 
OL IF THIS IS A MASTER PARTITICN 

02 TURN CN SCVT MASTER PART N FLG 
02 TURN ON XCVT MASTER PARTN FLG 

01 ELSE 

02 TURN ON SCVT SLAVE PARTN FLG 
02 TURN ON XCVT SLAVE PARTN FLG 
01 FNDIF 
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END I F 

IF PPCBE CR - 
IF UPITE RESTART 
01 TURN ON READ-CNLY TEMPORARY FLAG 
END I F 

IF FXTFRNAL INTERRUPT I NI TI AL I Z AT ICN OR RESTART PROCESSING REGUIREC 

LINK TO DOMIRINT TC PERFORM EXTERNAL IN TE RRLPT INITIALIZATION 

* ANC/0« PRE-RESTART PROCESSING, 

COPY DPINITl - TMCT INITIALIZATION 

CO°Y 0PINIT2 - CBGET INITIALIZATION 

COPY DPINIT3 - TASK MGVT INITIALIZATION 

LOAD CPPIPFRE - PAGE UNFIX ROUTINE 

ISSUE STAE FCR JOR STEP TASK 

ATTACH PROGRAM CPPIMTl 

IMIT CCMPLETE - XCTL TO DPPTSMCN 

** TWO ° APT N TIMER EXIT ROUTINE 

** PCST TINFR ECP TO ISSUE MS G 

** FOR TWO PARTN SYNCHRONIZE 

RETURN 

COPY 0PINIT4 - DATA AREAS 
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DPPINITO - CCNTPQL STATEMENT PROCESSOR INITIALIZATION * 

TUPN CN DBREINIT FLAG 
IF TWO PARTITION CPERATICN ALLOWED 
01 TURN CN TWO *>ARTN ALLOWED FLAG 
END IF 

OPEN INPUT CCB 
IF DCB FA IL ED TO OPEN 
01 WRITE FRR MSG 

01 SYSINIT DCB FAILED TO OPEN ABEND 40 
END I F 

UNTIL ENDLESS LCCP - EXIT BY EOCAD 



01 OPEN OUTPUT CCB 

01 IF CCB OPEN 

02 WRITE CARD IMAGE 
01 FNDIF 

01 IF VCRE OPERANDS ARE EXPECTED 

02 IF A CONTINUATION WAS NOT EXPECTED 

03 IF NCN BLANK CHAR FCUND 

04 IF NCN BLANK IN POS I - NAME FLD 

05 IF THIS IS NOT COMMENT CARD 

06 IF NAME LE 8 CHARS 

07 MOVE NAME TC WA 

06 ELSE 

07 WRITE ERROR MSG 

07 GC BACK AND READ ANOTHER CARD 

06 ENDIF 

05 ELSE 

06 GC READ ANOTHER CARD 
05 ENDIF 

05 LCCK FCR OPERATION FIELD 

04 END IF 

04 IF CPN LE 6 CHAR 

05 MCVE CPERATICN TC WORK AREA 
05 SEARCH FOR OPERANDS 

05 IF OFND ON THIS CARD 

06 IF OPERANDS END BEFORE LAST CAT A COL 

07 IF DELIMITER A BLANK 

08 IF MCRE CPNCS EXPECTEC 

09 TURN CN CCNT EXP FLG 

08 ELSE 

09 IF CONTINUATION EXPECTED 

10 TURN CN THE CONTINUATION AND NO MORE OPERANDS FLAG 

09 ELSE 

10 TURN OFF THE CONTINUATION AND NO MORE OPERANDS FLA' 
09 ENDIF 

08 ENCIF 
07 ELSE 

C8 BREAK OUT BLANKS (DC DPINITC6) 

07 ENDIF 
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06 ELSE 

07 IF NO CONT EXP 

08 TURN OFF CONTINUATION FLG 
07 ELSE 

38 TURN CONTINUATION FLAG ON 

07 ENOIF 
06 ENDIF 

06 MOVE THE OPERANOS TO THE WA 

06 UPCATE CPND WA FOR NEXT MOVE 

06 SAVE COUNT OF OPNOS MOVED 

05 ELSE 

06 IF NCT ABEND CARD 

07 WRITE ERROR MESSAGE 
06 ENDIF 

05 END IF 

04 ELSE 

05 WRITE ERRCR MESSAGE 
04 ENDIF 

03 ELSE 

04 WRITE ERROR MESSAGE 
03 ENDIF 

02 ELSE 

03 COPY DPINIT03 - CONTINUATION CARD PROCESSOR 
02 ENDIF 

01 ELSE 

02 IF NO CONTINUATION 

03 TURN OFF CONTINUATION AND NO OPERANDS FLAGS OFF 
02 ENDIF 

01 ENDIF 

01 COPY DPINIT04 - CCNTROL CARD PROCESSOR 



ENDDO 

COPY DPINITC5 - BUILD WAIT LIST RTNE 
COPY DPINIT08 - INITCB BUILD AND CHAIN RTNE 
COPY DPINIT09 - ERRCR MSG WRITER RTNE 
COPY DPINIT06 - BLANKS IN PARAM PROCESSOR 
COPY DP IN ITC7 - DATA AREAS AND CONSTANTS 
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DPPINIT1 - SUBSYSTEM PATCHCR RCUTINE * 

IF 2 PTN OPERATION 
01 IF THIS IS THE SLAVE PTN 
01 END IF 

END I F 

IF INITCB'S EXIST 
01 UNTIL END GF CHAIN 



02 IF THIS IS A PATCH BLOCK 

03 GET PROBL ADDR 

03 GET TFE PRCBL LENGTH 

03 IF PARAM CCOED ON PATCH STATEMENT 

04 PATCH THE PROGRAM WITH ECB SPECIFIED 

03 ELSE 

04 IF THIS IS A PRE-WRITE RESTART PATCH 

05 IF A WRITE RESTART BLCCK EXISTS 

06 PATCH TFE PROGRAM WITH ECB SPECIFIED 

05 ELSE 

06 PATCH PROGRAM WITH NO ECB 
05 END IF 

04 ELSE 

05 PATCH PROGRAM WITH NO ECB 
04 ENOIF 

03 END IF 

03 IF PATCF FAILED 

04 ABEND WITH USER 31 
03 END IF 

02 ELSE 

03 IF THIS IS A WAIT BLOCK 

04 IF WAIT IS TO BE ON A LIST 

05 GET WAIT COUNT 

05 GET ADDR OF ECB LIST 

05 WAIT GN LIST 

05 UNTIL CHECK ECB PCST CODES 

06 IF POST CODE IS NCN ZERO 

07 DO DPINIT11 - WRITE ERROR MSG 
06 END IF 

05 ENDDO 

04 ELSE 

05 GET ECB ADDR 
05 WAIT GN ECB 

05 IF POST CODE IS NCN ZERO 

06 DO DPINITil - WRITE ERROR MSG 
05 ENDIF 

04 END IF 
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03 ELSE 

04 IF THIS IS AN ABENO BLOCK 

05 WAIT FOR INTERVAL IN ECB 

05 IF A DUMP IS REQUESTED 

06 ABEND WITH A DUMP - USER 22 

05 ELSE 

06 ABEND WITHOUT A DUMP - USER 22 
C5 ENDIF 

04 ELSE 

05 THIS MUST BE A RESTART CARD 
05 GET WAIT COUNT 

05 IF ANY PATCH CARDS PRECEEO WRITE RSTRT 

06 GET ADDR OF WAITLIST 
06 WAIT QN LIST 

06 UNTIL CHECK ECB POST CODES 

07 GET ECB ADDR 

07 TURN OFF POST BIT 

07 IF POST CODE IS NCN ZERO 

08 DO DPINITil - WRITE ERROR MSG 
07 ENOIF 

06 ENDDO 

06 IF ANY POST CODES WERE NON ZERO 

07 ABEND WITH A USER 35 
06 ENDIF 

05 ENDIF 

05 IF THIS IS A SLAVE PARTITION 

06 IF WRITE RESTART REQUEST 

C7 IF SLAVE IS BEING RESTARTED - (RE-SYNC) 

08 ISSUE WTFAILDS BYPASSED MSG 

07 ELSE 

08 ISSUE WTFAILDS 
07 END IF 

06 ENDIF 

06 IF CANCEL REQUEST AND 

06 IF INITIAL IPL 

06 ENDIF 

05 ELSE 

06 IF WRITE RESTART REQUEST 

07 WRITE FAILOVER RESTART C ATA SET 
07 IF DR #5626 

07 END IF DR#5626 

06 ENDIF 

06 IF CANCEL REQUEST AND 

06 IF INITIAL I PL 

06 ENDIF 

06 IF PROBE REQUEST 

07 IF DR #5626 
07 ENDIF DR#5626 
06 END IF 

06 IF 
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06 ENDIF 

05 ENDIF 

05 IF PROBE OR 

05 IF WRITE RESTART 

05 ENCIF 

05 UNTIL END OF CHAIN 

06 IF THIS IS A PATCH BLOCK 

07 GET PROBL ACDR 

07 ADJUST RESTART FLAGS 

06 END IF 

05 ENDDO 

04 ENDIF 

03 ENDIF 

02 END IF 

01 ENDDO 

01 UNTIL LOOP FREEING ALL GOTTEN CORE 

02 IF THIS IS A PATCH BLOCK 

02 ELSE 

03 IF THIS IS A WRITE RESTART BLOCK 

04 FREE WAIT LIST 

03 ELSE 

04 THIS IS A WAIT BLOCK 

04 IF A WAIT BLOCK EXISTS 

05 GET THE LENGTH OF THE LIST 
05 FREEMA IN THE LIST 

04 END IF 

03 ENDIF 
02 END IF 

02 FREE THE CONTROL BLOCK tINITCB) 

01 ENDDO 



END I F 

TURN ON END OF INITIALIZATION FLAG 
RETURN TO CALLER 
COPY DPINIT11 - ERRCR ROUTINE 
COFY DPINIT12 - PRCBE ROUTINE 
COPY CPINIT13 - CMCN ROUTINE 



3-68 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-70 (1 of 2). DPPIPFIX 

DPPIPFIX - INITIALIZATION PAGE FIX ROUTINE * 
IF ARRAY DPPXFIX EXISTS 
01 WHILE PROCESS ARRAY 

01 WHILE A NO FIX STORAGE TILL END OF ARRAY 
0? IF FIX REQUEST IS FOR A LOAD MODULE 

03 IF STORAGE NOT ALREADY FIXED 

04 FINC THE L CAD MODULE - PL DL 

04 IF MODULE FCUND - LOAD IT 

05 IF A MX LENGTH WAS REQUESTED 

06 ADD REQUESTED LENGTH TO EP 
05 ELSE 

05 END IF 

05 FIX THE VIRTUAL STORAGE 

05 IF FIX SUCCESSFUL 

06 SAVE LOW FIX ADDR IN THE ARRAY 
06 SAVE HI FIX ADDR IN THE ARRAY 

05 ELSE 

06 ISSUE ERROR MSG 
05 END IF 

04 ELSE 

05 ERROR MSG 

04 END IF 

03 END IF 

02 ELSE 

03 IF THIS IS A NAMED ARRAY FIX REQUEST 

04 IF STORAGE NOT ALREADY FIXED 

05 FIND THE NAMED ARRAY 

05 IF ARRAY FOUND 

06 GET THE ARRAY ADDR 

06 IF A LENGTH WAS REQUESTED 

07 GET HI FIX ADCR 

06 ELSE 

07 IF BLK C NT NONZERO 

08 GET THE BLOCK SIZE 

08 MULT BLK CT X BLK SIZE « ARRAY SIZE 

07 ELSE 

08 GET ARRAY SIZE 
C7 ENDIF 

06 END IF 

06 FIX THE VIRTUAL STORAGE 

06 IF FIX SUCCESSFUL 

07 PUT THE LO FIX ADDR IN THE ARRAY 
07 PUT TFE HI FIX ADDR IN THE ARRAY 

06 ELSE 

07 ISSUE ERROR MESSAGE 
06 END IF 

05 ELSE 

06 ISSUE ERROR MESSAGE 
05 ENDIF 

04 ENDIF 
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Figure 3-70 (2 of 2). DPPIPFIX 



03 ELSE 

04 IF THIS IS A NUMBERED ARRAY FIX REQUEST 

05 IF STORAGE NOT ALREADY FIXED 

06 FIND THE ARRAY 

06 IF ARRAY FOUND 

07 GET THE ARRAY ACDR 

07 IF A LENGTH WAS REQUESTED 

08 GET HI FIX ADDR 

07 ELSE 

08 IF BLK CNT NONZERO 

09 BLK CVT X BLK SIZE = ARRAY SIZE 
09 GET ARRAY SIZE 

08 ELSE 
08 END IF 

07 ENDIF 

07 FIX THE VIRTUAL STORAGE 

07 IF FIX SUCCESSFUL 

08 PUT LOW FIX ADDR IN ARRAY 
08 PUT HI FIX ADDR IN ARRAY 

07 ELSE 

08 ISSUE ERROR MESSAGE 
07 ENDIF 

06 ELSE 

07 ISSUE ERROR MESSAGE 
06 ENDIF 

05 ENDIF 

04 ELSE 

05 ISSUE PAGE FIX STATLS MSG 
04 ENDIF 

03 ENDIF 
02 ENDIF 



01 ENDDO 

01 IF ALL FIXES CK 
01 ELSE 
01 END IF 

01 ISSUE ERROR MSG 
ELSE 
END I F 
RETURN 
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Figure 3-71. DPPIPFRE 

DPPIPFRE - PAGE UNFIX ROUTINE 
GET ARRAY - FIND ARRAY OPPXFIX 
IF ARRAY FOUND SUCCESSFULLY 
01 WHILF * PROCESS ALL ITEMS 

01 V/HILE * IN ARPAY - FIXING VIRTUAL 

02 * ADDRESSES 

02 IF PPEV FIX SUCCESSFUL 

03 UNFIX ALL VIRTUAL ADDRESS 
02 ENCIF 

02 UPCATE TO NEXT ITEM IN ARRAY 

01 ENDDO 

END I F 

RETURN 



Figure 3-72. DPPISTAE 

DPPISTAE - STAE RCUTINE 
GET CVT ADDR 

GET PTR TO NEVi/CLD ViORDS 
GET CURRENT TCB ADDR 
GET TCBX ADCR 
GET XCVT AODR 
IF 

01 GET PAGE FREE (UNFIX) RTNE ACCR 
01 LINK TO PAGE UNFIX 
END I F 

IF THE EXT I NT HANDLER IS INITIALIZED 
01 TURN OFF EXT INT HANDLER PITS 
END I F 

IF THIS IS A TWO PARTITION PUN 

01 IF CTHER JOB STEP TASK IS NOT ABENOING 

02 IF THIS IS THE MASTER PARTITION 

03 ABENO THE SLAVE - USER 41 

02 ELSE 

03 TURN OFF THE 2 PARTN FLG 
02 END I F 

01 FNDIF 
END I F 
RETURN 
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Figure 3-73. DPPITIMI 





OPP IT IMI-MMN 


SEGMENT 


•TIME MANAGEMENT INITIALIZATION* 


0 I 


INITIALIZE 


CPPITIME WORK 


AREA 


01 


GET ARRAY 


DPPCT I *A 


TIME CATA BASE ARRAY 


01 


SFTPSW 


TO GET CINFD ADPRFSS 


0 1 


STORE 


ARRAY ADDRESS 


IN SCVT 


0 L 


DE PL GCK 


TI VE 


BUILD LOCK CCNTROL BLOCK 


01 


SAVE JOB STEP'S PRIORITY 




01 


INITIALIZE 


F A I LOVER FIELDS 


IN TIME ARRAY 


01 


STORE 


TOD CLOCK 


SET THE CURRENT TOD COUNTED VALUE 








INTO THE TIME ARRAY 


0 1 


L I NK 


CPPCALCF 


CALCULATE THE CORRECTION FACTOR 


01 


LINK 


DPPCUPCF 


CALCULATE THE CONVERSION FACTOR 


01 


IF 


TOD CLOCK OPERATIONAL 


02 


ATTACH 


DPPCPT I M 


ISSUES PATCHES REQUESTED VIA PTIMl 


02 


IE CLOCK 


CCNPARATOR IS 


AVAILABLE 


03 


ATTACH 


DPPCT IM2 




02 


ELSE 






03 


ATTACH 


CP PC T I ME 




0 2 


END I F 






02 


WA IT UNTIL THE TWO TASK 


ARE INITIALIZED 


01 


El SE 






0? 


ABEND JOB 


STEP 


ABORT INITIALIZATICN 


01 


END I E 








RETURN 
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Figure 3-74. DPPMINIT 

DPPMINIT MAIN SEGMENT *SYSTEM MESSACES INITIALIZATION ROUTINE * 



01 PATCH DPPMMSGl WITH ID 255 

01 GETARRAY FOR ROUTING CODE TABLE ( ARRAY DOMXSMRC) 

01 IF ROUTING CODE TABLE NCT FOUND THEN 

02 ABEND TASK WITH ID 23 
01 END IF 

01 GET MA I N FOP MESSAGE CONTROL TABLES 

01 MOVE MESSAGE CCB TO MESSAGE DC B TABLE ( MDT ) 

01 OPEN MESSAGE CCB FOR INPUT 

01 IF MESSAGE CCB NCT OPENED THEN 

02 ABEND TASK WITH ID 20 
01 END I F 

01 IF PRE-RESTART THEN 

02 SET PRE-RESTART FLAG IN MESSAGE ADDRESS TABLE 

01 ELSE 

02 SET POST-RESTART FLAG IN MESSAGE ADDRESS TABLE 
01 END IF 

01 IF CCNAMES SPECIFIED IN POUTING CODE TABLE 

02 DC UNTIL ALL OUTPUT DCB'S ARE OPENED 

03 MOVE CDNAME FRCM ROUTING CODE TABLE TO DUMMY DCB 
03 NOVE FORMATTED CCB TO MESSAGE CCB TABLE 

03 OPEN FORMATTED DCB FCR OUTPUT 

03 IF FORMATTED OCB NOT OPENED THEN 

04 ISSUE WTO ERROR MESSAGE 
03 ENDIF 

02 ENODO 

01 ENDIF 

01 LOAD REAL TIME MESSAGE H ANDL ER ( DPPMMSG ) IN CORE 

01 STORE DPPMMSG ADCRESS IN SC VT I SCVTMS GH ) 

01 BUILD LOCK CONTROL BLOCK FOR DPPMMSG 

01 STORE AODRESS CF LOCK CONTROL BLOCK IN MESSAGE ADDRESS TABLE 

01 BUILD LCCK CCNTRCL BLOCK FOR MESSAGE OUTPUT ROUTINEC DPPMMSG1 ) 

01 STORE ADCRESS CF LOCK CONTROL BLOCK IN MESSAGE ADDRESS TABLE 

01 STORE ADCRESS OF MESSAGE ADDRESS TABLE IN SCVT ( SCV TMWAJ 



ENDS EG ME NT DFFNINIT 
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Figure 3-75. DPPMMSG 

DPPMMSG MAIN SFGMENT * REAL TIME MESSAGE HANDLER FORMATTER ROUTINE * 



01 GFT MESSAGE REQUEST FRCM USER 

01 GET ADDRESS OF MESSAGE ADORE SS CONTROL BLOCK FROM SCVT 

01 GFT ADDRESS CF LCCK CONTROL EL OCK FROM MESSAGE ADDRESS CONTROL BLOCK 

01' LCCK DPPMINIT 

01 GET ADDRESS OF OPEN MSG CCB FROM MSG ACDRESS CONTROL BLOCK 
01 GET SPECIFIED MESSAGE FRCM MESSAGE CAT A SET 

01 IF MESSAGE NOT FCUND THEN 

02 SET RETURN CODE TO 8 

01 ELSE 

02 IF VARIABLE CCUNT IN MESSAGE PARAMETER < VARIABLE COUNT IN DEFINED 

03 MESSAGE THEN 

02 SET RETURN CODE TC 4 

01 ELSE 

02 IF VARIABLE COUNT IN MESSAGE PARAMETER > VARIABLE CCUNT IN 

03 DEFINED MESSAGE THEN 
02 SET RETURN CODE TO 2 

01 END IF 

ENCIF 

CONVERT ALL USER DAT A I VAR I ABL ES ) TO EBIDIC INTO MESSAGE 
ADC TIME TO MESSAGE 
IF DATE FLAG CM N DEFINED MESSAGE 
01 ADD C AT E TC MESSAGE 

END I F 

IF ACTION CODE SPECIFIED IN PARAMETER LIST THEN 
01 MOVE ACTION CODE TO MESSAGE 

ENDIF 

IF USER MESSAGE RETURN AREA SPECIFIED THEN 
01 PASS MESSAGE TO USER SPECIFIED AREA 

ENDIF 

IF RGUTE CODE NOT EQUAL TO 255 THEN 
01 RETRIEVE ROUTING CODE TABLE FRCM C AT A BASE 

01 IF ROUTE CODES IN PARAMETER LIST NCT FOUND IN ROUTING CODE TABLE 

02 THEN 

01 SET RETURN CCDE TC 12 

ELSE 

01 PATCH MESSAGE OUTPUT ROUTINE 

ENDIF 
END I F 
ENDIF 

UNLCCK DPFMMSG 



ENDSEGMENT DPPMMSG 

( 
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Figure 3-76. DPPMMSGV 

DPPMMSGV MAIN SEGMENT * SYSTEM MESSAGE ROUTING CODE MANIPULATION 



01 ROUTINE * 

RETRIEVE PASSEC PARAMETERS 

RETRIEVE MESSAGE ROUTING CODE FRCM CATA BASE 
IF ALTERNATE RCUTE CODE PASSED THEN 

01 CO UNTIL ALTERNATE RCUTE CODE CCMPARED AGAINST ROUTE CODE TABLE 

02 IF ALTERNATE ROUTE CODE OUT OF SERVICE THEN 

03 ISSUE ERROR MESSAGE 
03 SET ERROR FLAG 

02 ENDIF 
01 ENDDO 
END I F 

IF PASSED PRIMARY ROUTE CODE = ALTERNATE ROUTE CODE THEN 
01 SET ERROR FLAG 

01 ISSUE ERROR MESSAGE 

ENDIF 

IF ERROR FLAG OFF THEN 

01 DO UNTIL END OF ROUTE COCE TABLE 

02 IF PRIMARY ROUTE CCDE FOUND IN RCUTE CODE TABLE THEN 

03 IF ALTERNATE ROUTE SPECIFIED THEN 

04 MCVE ALTERNATE ROUTE CODE TO ROUTE CODE TABLE 
03 ENDIF 

03 IF ROUTE CODE CUT OF SERVICE THEN 

04 SET OUT-OF-SERVICE FLAG IN RCUTE CODE TABLE 
04 DISPLAY STATUS OF ROUTE CGDE 

03 ENDIF 

03 IF ROUTE CODE IN SERVICE THEN 

04 SET IN-SERVICE FLAG IN ROUTE CODE TABLE 
04 DISPLAY STATUS OF ROUTE CODE 

03 ENDIF 

03 IF STATUS OF ROUTE CCDE REQUESTED THEN 

04 DISPLAY STATUS OF ROUTE CODE 
03 ENDIF 

02 ELSE 

03 IF STATUS OF ALL ROUTE CODES IN SYSTEM REQUESTED THEN 

04 DISPLAY STATUS OF ROUTE COCE(S) 
03 ENDIF 

02 END I F 

01 ENDDC 
ENCIF 

IF BAD PARAMETER PASSEC THEN 
01 ISSUE ERROR MESSAGE 

ENCIF 



ENDSEGMENT DPPMMSGV 
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Figure 3-77. DPPMMSG1 

DPPMHSGl MAIN SEGMENT *REAL TIME MESSAGE HANDLER OUTPUT ROUTINE * 



01 GET FORMATTED MESSAGE AND ROUTE CODES FRCM MESSAGE FORMATTER ROUTINE 

01 GET ADDRESS OF MESSAGE ADDRESS CONTROL BLOCK FROM SCVT 

01 LOCK DPPMMSG1 

01 IF PRE-RESTART FLAG SET IN MESSAGE ACORESS CONTROL BLOCK THEN 

02 OUTPUT MESSAGE TO SYSTEM CONSOLE 

01 ELSE IF POST-RESTART 

02 RETRIEVE MESSAGE ROUTING CODE TABLE FROM DATA BASE 

02 DC UNTIL MESSAGE HAS BEEN ROUTED TO ALL SPECIFIED ROUTE CODES 

03 IF ROUTE CODE FOUND IN ROUTING CODE TABLE THEN 

04 OUTPUT MESSAGE TO SPECIFIED DEVICE IN ROUTING CODE TABLE 

04 IF MESSAGE NOT OUTPUTTED TO PRIMARY ROUTE THEN 

05 OUTPUT MESSAGE TO ALTERNATE ROUTE CODE 
04 END IF 

03 END IF 

02 ENDOO 

01 END IF 

01 UNLOCK DPPMMSG1 



ENOSEGMENT CPPMMSG1 
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Figure 3-78 (1 of 2). DPPPARM 



A ( PARAMETER TABLE) 

CANCFL THE PL/1 SPIE AND STAE EXIT ACROSS INTERFACE ROUTINE 
LOAD A ( S T A E REMOTE LIST) 
SAVE AIPL/1 PICA) 
A(CVT) 

A( NEW/CLD TCB ACCRESSES) 

A ( CUR R ENT TCB) 

A(TCBX) 

A ( PATCH PARM TABLE) 

IS THIS THE FIRST ENTRY 

IF *: NO 
01 LOAD AIXCVT) 
01 LOAC A(SCVT) 
01 LOAD A(SEC. EP DPPTPMON) 
01 LOAD POST CODE FOR PMON TO PATCH 
01 GO GET ANCTFER WORK QUEUE 

ELSE 

01 CONTINUE RETURN CODE 
END I F 

FILL THE PARAMETER TABLE 
STORE RETURN CODE 

RESTORE PL/l SPIE AND STAE PRIOR TO RETURNING 
RESTORE PL/i STAE 
LOAD AIPL/l PICA) 
RESTORE PL/1 SPIE EXIT 

STAE SUBROUTINE TO PERMIT RECOVERY TO FREE CORE AND ENTER 
PL/i STAE 

BGNSEG 

01 IF THERE IS A WCRKARE A 

02 LCAC A ( DPPPARM SAVEAREA) 

02 SAVE ABEND CCDE FCR RECOVERY 

01 ELSE 

02 SAVE ABENC CODE FOR RECOVERY 
01 END IF 

01 A { DPPPARM STAE RETRY ROUTINE) 
01 REQUEST A RETRY 

ENDSEG DPARMST A 

BGNSEG 

01 IF THERE IS A WCRKAREA 

02 LOAD A ( DPPPARM SAVEAREA) 
02 LOAD COMPLETION CODE 

02 LOAC STAE WCRKAREA LENGTH 

02 FREE THE STAE WORKARE A 

02 SETUP A<DP PPARM SAVEAREA} 

02 LCAD ACPL/1 SAVEAREA) 
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Figure 3-78 (2 of 2). DPPPARM 



01 ELSE 

02 SAVE THE CCMPLETICN CODE 
02 LOAC ADDRESS OF DPPPARW 
02 LOAC A(CVT) 

02 LOAC A ( TCB NEW/OLD POINTERS) 

02 LOAD ACCURRENT TCB) 

02 LCAC A1FIRST SAVEAREA) 

02 STRTSRCH NEXT IS NCT ZEFO 

02 EXITIF NEXT IS DPPPARM SAVEAREA 

03 LCAC A (DPPPARM SAVEAREA) 
02 ENCLOOP 

02 ENDSRCH 

01 ENDIF 

01 LOAC A(PL/1 PICA) 

01 LOAD SAVEAREA LENGTH 

01 FREE TFE SAVE AREA 

01 SETUP TO RESTORE PL/ % SPIE 

01 RESTCRE PL/1 SPIE EXIT 

01 COMPLETICN CODE TO REG. 1 

01 SETUP PL/1 SAVEAREA REG. 

01 RESTORE PL/1 REGS 2 TO 12 

01 GO TO PL/l STAE EXIT 
ENDSEG DPARMRCV 
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Figure 3-79 (1 of 5). DPPPIF 

A ( F I R ST PARAMETER LIST) 

OVERRIDE PL/I ST AE EXIT CURING CALLS FOR SERVICE 
LOAD A ( ST A 6 REMOTE LIST) 

CANCEL PL/I SP I E EXIT CURING CALLS FOR SERVICE 
SAVE A( PL/I PICA ) 
A(CVT ) 

A1NEW/CLD TCB ACCRESSES) 
A (CURRENT TCB) 
AUOBSTEP TCB) 
A( TCBX ) 
A< XCVT) 

MOV E ERROR ^SG SKELETON TO CS 
IF MACRO NO. IS MULTIPLE OF 4 AND 
IF ITS NOT NEGATIVE AN!) 
IF ITS NOT GT LIST, THEN 
01 EXEC. INTERFACE CODE 
END I F 

STORE RETURN CODE/PCST FLAGS 
RESTORE PL/I STAE 
LOAD MPL/I PICA) 
RESTORE PL/I SPIE EXIT 

THIS SUBROUTINE SAVES TEE COMPLETION CODE IN THE INTERFACE 

ROUTINE SAVEAREA AND REQUESTS THE RETRY OPTION. 

BGNSEG 

01 IF WORK AR E A THEN 

02 LOAD A(DPPPIF SAVEAREA) 

02 MOVE CONPIETICN TC FIRST WORC 

01 ELSE 

02 STORE CCNPLETICN CODE 
01 END I F 

01 At STAE RETRY ROUTINE) 
01 REQUEST A RETRY 
ENDS EG CPIFSTAE 

THIS ROUTINE FREES THE STAE WGRKAREA, TEE SAVEAREA OBTAINED 

THE BEGIN MACRO AND FORCES A PL/I STAE ENTRY. 

BGNSEG 

01 MAKE ENTRY TEE BASE 

01 IF REGISTER 1 CONTAINS A { WORK AR EA ) 

02 SAVE STAE WORKAREA ACCRESS 
02 LOAD M INTERFACE SAVEAREA) 
02 POINT TO ADRESS OF ABEND 

01 ELSE NO WORKAREA - FIND SAVEAREA FROM TCB 

02 A(CVT) 

02 A( NEW/OLD TCB ACCRESSES) 

02 A ( CUR R ENT TCB) 

02 AIFIPST SAVEAREA) 

02 STRTSRCH TO PREV SAVEAREA 

02 EXITIF PREV. SAVEAREA FCUND 

03 LCAC A( INTERFACE SAVEAREA) 
03 NO ABENC ADDRESS 

02 ENDLOCP 
02 ENDSRCH 

01 END I F 3. 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-79 (2 of 5). DPPPIF 

01 PCINT TC CCMP. CCDE FOP MSG 

01 LOAD LANGUAGE SAVEAREA ACCRFSS 

01 L GAD ADDR TIF PARAMETER ACCR 

01 LOAD ADDR CF SERVICE ID FCR MSG 

01 LOAC CVT AODR 

01 LOAD NEW/CLD T C R AODR 

01 LOAD CURRENT T C B AODR 

H LOAD JOBSTEP TC B ADDR 

01 LOAD TCBX ACCR 

01 LOAD XCVT ADDR 

01 IF A STAE WCRKAREA WAS PROVIDED THEN 

0 2 LOAD WCRK/5REA SIZE, 

0? LCAD WGRKAREA ADDRESS ANC 

02 FREE STAE WORK A RE A 

01 FNDIF 

01 SAVE COMPLETION CODE FOR ABEND 

01 LOAD SAVEAREA ADDR FOR FREE 

01 LOAD Fl/I-FCRT SAVEAREA 

01 LOAD A (PL /I PICA) 

01 LOAD SAVEAREA SIZE FOR FR EEM A IN 

01 FREE TEE SAVEAREA 

01 SETUP FOR RESTORING PL/I SPIE 

01 RESTORE FEE PL/i" SPIE EXIT 

01 CCNPLFTICN CODE TC REG. 1 

01 SAVEAREA ADDRESS TO REG. 13 

CI RESTORE PL/I REGS 2 TO 12 

01 GO TC PL/I STAE EXI T 
ENDS FG DPIFRCVY 

THE FOLLOWING CODE HANDLES PL/ I PATCH REQUESTS 

BGNSEG 

01 A (PRC PL) 

01 SETUP BASE TQ SUPL 

01 IF NEEDED - SETUP NEW PPCBL 

01 ISSUE PATCH 

01 STORE A ( T C B EXTENSION) 

01 CLEAR FLAGS FPCM FL/I HALF-WORD 

ENDS EG CPPIFGO 

BGNSEG 

01 MOVE FLAGS TO SUP LIST FLAGS 

01 IF CORE MUST BE OBTAINED 
0? SETUP FOR GETMAIN 

0? CFTTFE CORE 

02 COPY A ( N F W PROBL) 

0? A { N E V PROBL FCR MOVE) 

6? LENGTH CF MCVF 

0? COPY ACCLC PROBL) 

02 LENGTH CF MOVE 

02 MOVE PROBL 

02 TELL SUPERVISOR TO FREE PRC BL 
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Figure 3-79 (3 of 5). DPPPIF 

01 ELSE 

02 RETURN MOLD PRCBL) 
01 ENDIF 

ENDS EG GETPPOBL 

THE FOLLOWING COOE HANDLES PL/1 PTIME REQUESTS 

BGNSEG 



0 i 


IF *2 TYPE = RETURN TIME 


02 


GET CURRENT TIME 


02 


STORE TIME AND ACTIME ARRAY) 


02 


ZERO RETURN CODE 


01 


ELSE 


02 


A(PTIME PARAMETER LISTJ 


02 


MOVE START FLAG 


02 


MOVE PURGE FLAG 


02 


MCVE STOP FLAG 


02 


A ( PATCH AND PRCBL) 


02 


IF NEEDED - SETUP NEW PPOBL 


02 


A(PROBL) BEING PASSED 


02 


SETUP PARAMETER REGISTERS 


02 


FCR CALLING PTIME 


02 


ISSUE 


02 


RESTORE 


02 


CLEAR FLAGS 


02 


FRCM PL/l 


02 


FIXED POINT 


02 


FIELDS 


01 


ENDIF 



ENDSEG DPPIF04 

THE FOLLOWING COCE HANDLES PL/1 DPATCH REQUESTS 

BGNSEG 
01 LOAD PURGE OPTION 
01 A ( T AS K NAME) 
01 ISSUE OPATCH SVC 

ENDSEG 0PPIF08 

THE FOLLOWING COOE HANDLES PL/1 REP AT CH REQUESTS 
BGNSEG 
01 10AC A (REPL I 

01 IF REC. TYPE IS ZERO, THEN 

02 MOVE REPL TO USER CORE 
02 RELOCATE SUPL FLAGS 

02 MAKE QUEUE LENGTH A HALFWORD 

02 AND COMPUTE ITS ADORESS A NO 

02 REPLACE ACREPL) 

02 SETUP A ZERO RETURN COOE 

01 ELSE 

02 RESTORE SUPL FLAGS 

02 CLEAR TEMP. FLAGS LOCATION 

02 COMPUTE REPL I RETRY/ PURGE ) OPTION 

02 EXECUTE REPATCH SVC 

01 END IF 
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Figure 3-79 (4 of 5). DPPPIF 
ENDS EG DPP IF 12 

THE FOLLOWING CCDE HANDLES PL/1 GET /PUTARRAY REQUESTS 

BGNSEG 
01 LOAD A { N AN E LIST) 
01 INSERT NAME INCREMENT 
01 LOAD A (DATA LIST) 
01 INSERT DATA INCREMENT 
01 CALL SERVICE 

ENDSEG DPPIF16 

THE FOLLOWING CODE HANDLES PL/1 GET/PUT IT EM REQUESTS 

BGNSEG 
01 LOAC A I NAM E LIST) 
01 INSERT NAME INCREMENT 
01 LOAD A( DATA LIST) 
01 INSERT DATA INCREMENT 
01 CALL SERVICE 

ENDSEG DPPIF20 

THE FOLLOWING CODE HANDLES PL/ 1 GET/PUTBLOCK REQUESTS 

BGNSEG 
01 LOAC AfCATA LIST) 
01 PICKUP DAT AL I ST INCREMENT 
01 LOAD A ( ARRAY NAME LIST) 
01 CALL SERVICE 

ENDSEG DPPIF24 

THE FOLLOWING CODE HANDLES PL/1 MESSAGE REQUESTS 

BGNSEG 

01 BUILD FIRST WORD OF MESSAGE 

01 PARAMETERS TO CONTAIN 

01 NO. VAR ACRS/ROUTES AND MSG NO. 

01 PLACE ACTION CCDE 

01 LOAD STARTING ADDP. FOR SEARCH 

01 LOAD INCREMENT FOR FULLWORDS 

01 LOAC END OF SEARCH ADDRESS 

01 STRTSRCH UNTIL END OF VARIABLES DO 

02 TEST VARIABLE ADDRESS FOR ZERO 

01 EXITIF A ZERO VARIABLE ADDRESS IS FOUND 

02 LOAD START ADDRESS 

02 COMPUTE NC» OF BYTES SEARCHED 

02 COMPUTE NO. OF WORDS SEARCHED 

02 RESET NO. OF VARIABLES COUNT 

01 ENDLOCP 
01 ENDSPCH 

01 INSERT THE WAIT FLAG 
01 At MESSAGE PARM LIST) 
01 CALL SUPPORT ROUTINE 
01 CLEAR WAIT FLAG 
01 CLEAR ACTION CODE 
ENDSEG CPPIF40 
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Figure 3-79 (5 of 5). DPPPIF 



THE FOLLOWING CODE HANDLES PL/ L PUTLOG REQUESTS 

BGNSEG 

01 LCAC A ( ARR AY NAME/NUMBER/LIST) 
Oi LOAD A(LOGHEACER/BLOCKLIST) 

01 IF REG 0 CONTAINS A(BLOCKLIST) 

02 LOAC INCREMENT VALUE 
01 END I F 

01 CALL SERVICE 
ENDSEG DPPIF44 

THE FOLLOWING CODE HANDLES PL/1 GETLOG REQUESTS 
BGNSEG 

01 IF ITS AN ARRAY NAME 

02 MOVE NAME ADDR TO LIST 
01 END IF 

01 LOAD A ( GETLOG PARAMETER LIST) 
01 CALL SERVICE 

01 IF ITS AN ARRAY NAME 

02 CLEAR ACDRESS FROM LIST 
01 ENDIF 

ENDSEG DPPIF48 

THE FOLLOWING CODE HANDLES PL/i CUMPLOG REQUESTS 
BGNSEG 

01 IF A LIST OF NAMES OR NUMBERS OR 

01 IF A NAME IS SPECIFIED 

02 MOVE ADCR TO LIST 
01 ENDIF 

01 LOAD A t DUMPLOG PARAMETER LIST) 
01 CALL SERVICE 

01 IF A LIST ADDR 

02 CLEAR ADDRESS FROM LIST 
01 ENDIF 

ENDSEG DPPIF52 

THE FOLLOWING CODE HANDLES PL/1 RECORD REQUESTS 

BGNSEG 
01 PICKUP LENGTH 
01 INCLUDE ID 
01 At CAT A ) 

01 CALL SUPPCRT ROUTINE 
ENDSEG DPPIF56 

THE FOLLOWING CODE HANDLES PL/1 PATCH WAIT REQUESTS 

BGNSEG 

01 At ECB TO BE POSTED) 
01 WAIT FOR A SINGLE EVENT 
01 ZERO THE REGISTER 
01 LOAD POST FLAGS AS RETURN CODE 
01 CLEAR POST FLAGS FRCM COMP. CODE 
ENDSEG DPPIF60 
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Figure 3-80. DPPSAMP1 



DPPSAMP1 MAIN SEGMENT 'SAMPLE PROGRAM PATCH ENTRY ROUTINE' 
Oi ISSUE SYSTEM MESSAGE 28 

ENDSEGMENT DPFSAMP1 



Figure 3-81. DPPSASOC 



• DOS ASYNCHRCMS OPEN OR CLOSE' 
GET ADDRESS OF INPUTS 

INPUTS = M IOA i »WHICH CONTAINS OPEN/CLOSE SVC £ PARMS 

FUNCTION = ASYNCHRONOUSLY OPEN/CLOSE HALF A ODS 

GET ADDRESS OF PARM FOR OPEN/CLOSE 

EXECUTE OPEN/CLOSE SVC 

POST THE ASYNCH EC8 

RETURN TO CALLER 



Figure 3-82 (1 of 2). DPPSBFST 

• BLDL/F I NO ( TYPE-D/STQW FOR A OCS • 
INPUTS = <A(UDCB),AIPARAM), CTYPE) ) 



IF THIS ODS IS NOT DUPLICATED, THEN 

01 CALL THE APPROPRIATE SEGMENT FOR USER'S OS DC 8 

ELSE 

01 IF THIS IS READCNLY, AND 

01 IF STOW IS REQUESTED, THEN 

02 SET RETURN CODE TO 32 AND RETURN TO USER 
01 END IF 

01 SHARE THIS DOS 

01 CALL THE APPROPRIATE SEGMENT FOR THE PRIMARY CDSDCB 

01 IF AN ERRCR CN THE PRIMARY, TFEN 

02 IF 8ACKUP IS IN-SERVICE, THEN 

03 LOCK THIS OCS 

03 SWITCH PRIMARY WITH BACKUP 

03 UNLOCK £ SHARE THIS CCS 

03 IF THE SWITCHCVER WAS GOOD, THEN 

04 EXECUTE SVC FOR THE NEW PRIMARY 
03 ENDIF 

02 ENDIF 

01 ELSE 
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Figure 3-82 (2 of 2). DPPSBFST 



02 IF IT IS NOT BLDL, AND 

02 IF BACKUP IS IN SERVICE 

03 PERFORM SVC CN BACKUP DCB 

03 IF BACKUP FAILED, THEN 

04 TAKE BACKUP OUT-GF- SERV ICE 
03 END IF 

02 END IF 

01 END IF 

Oi UNShARE THIS DOS 
END IF 

RETURN TO THE CALLER 
BGNSEG 
01 ISSUE A BLDL 

01 IF THE BLDL FAILED, THEN 

02 SET PROPER RETURN CODE 
01 END I F 

ENDSFG BLDL 
BGNSEG 

01 ISSUE FIND (TYPE D ) 

01 IF FIND FAILED, THEN 

02 SET PROPER RETURN CODE 
01 FNDIF 

ENDSFG FIND 
BGNSEG 

01 ISSUE STOW ( TYPE A ) 

01 IF STOW FAILED, THEN 

02 SET PROPER RETURN CODE 
01 END IF 

ENDSEG STOWA 
BGNSEG 

01 ISSUE STOW ( TYPE R I 

01 IF STOW FAILED, THEN 

02 SET PROPER RETURN CODE 
01 ENDIF 

ENDSEG STOWR 
BGNSEG 

01 ISSUE STOW (TYPE C ) 

01 IF STOW FAILEC, THEN 

02 SET PROPER RETURN CODE 
01 END IF 

ENDSEG STCWC 
BGNSEG 

01 ISSUE STOW ( TYPE C ) 

01 IF STOW FAILED, THEN 

02 SET PROPER RETURN CODE 
01 ENDIF 

ENDSEG STOWC 
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Figure 3-83. DPPSBF1 

• B LDL/F IND (TYPE-D) FOR A OCS t 

INPUTS = $1=A(UCC8J, $0=A(PARAM), $ L3=A ( S AV E-AREA ) 
IF FIND (TYPE-D) » THEN 
01 RECC HPL EMENT UCCB POINTER 
ENDIF 

CALL INTERNAL BUI LDL/F IND/ STOW ROUTINE - DPPSBFST 
RETURN TO CALLER 



Figure 3-84 (1 of 2). DPPSCHCK 
• DOS CHECK MODULE' 

INPUTS: AIUSER'S DECB ) - OECCCBAC FIELD POINTS TO 
RESERVED DDSDEC8 



SEE IF USER'S DECB AND DDSDECB POINT TO EACH OTHER 

IF THE UDEC8 IS CCNNECTED TO THE 
DDSDECB, AND 

IF THIS DDSDECB IS RESERVED, 
01 THEN 
01 

01 DDSSHARE THIS DDS 

01 

01 

01 SEE IF THIS DDSDECB IS ATTATCHED TO THE 

01 PRIM/RY CCB 

01 

01 IF THIS DDSDECB IS ATTATCHED TO 

02 THE PRIMARY CCB, THEN 
02 

02 CALL DPPSCHK2 TO PERFORM ACTUAL CHECK 

02 RETURN PARM 1 PC I NTS TO UPCATED PRIMARY DEC B 

02 RETURN PARM 15 INDICATES NORM AL (3 ) , ECDIl), OR SYNADCO) 



02 
02 
02 
02 
02 
02 
03 
02 
03 
02 
02 
02 
03 
02 
3-86 



MOVE PRIMARY DEC8 TO USER'S DEC E AREA 



MCVE IN BCAM DECB 
ELSE 



MOVE IN BSAM OECB 
ENDIF 

IF OPENED FOR UPDATE, AND 
IF THIS IS A READ, THEN 



IF DSORG=CA 



GET AOCRESS OF BACKUP IOB 
ENOIF 
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Figure 3-84 (2 of 2). DPPSCHCK 



01 ELSE 

02 ZERO RETURN CODE 
01 END IF 

01 

01 RELEASE THIS CDS DEC B 

01 

01 

01 ODSUNSHARE THIS DCS 
01 

ELSE 

01 ZERO RETURN CODE 
END IF 

RETURN AS PER INDICATED IN RETURN CODE TYPE-SYNAD , EOD, OR 
NCRMAL 

IF EOD OR SYNAD TAKEN 

01 IF ECD TAKEN 

02 SET RETURN ADDRESS FOR EOD 

01 ELSE 

02 SET RETURN ADDRESS FOR SYNAC 
01 END IF 

ENDIF 

RETURN TO CALLER 
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Figure 3-85. DPPSCHK2 



• CHECK A CDSDEC6 - INTERNAL • 



INPUTS = ( MUCECB), A<PRI*ARY DECB), AUOA), A(CTLA), 

A( BACKUP DECS)) 

IF I/O WAS STARTED, THEN 



01 SET SYNAD Z EOD FCR CHECK 

01 

01 

01 BRANCH TO OS/VS CHECK RCUTINE 

01 

01 

01 SEE IF SYNAD WAS TAKEN 
01 

01 IF SYNAD WAS TAKEN 
01 

02 THEN CALL THE SYNAD UPDATE CHECK RCUTINE 

02 RETURNS ACDRESS OF PRIM/RY CECB IN $1 £ RETURN CODE IN $15 

02 

01 ELSE 
01 

02 SEE IF NCRMAL RETURN - I.E., NO ECD 
02 

02 IF NCRMAL RETURN 

02 IF BACKUP IS IN-SERVICE, THEN 
02 

03 THEN CALL CHECK UPDATE ON BACKUP 

03 

02 END IF 

01 END IF 
ELSE 

01 SET RETURN CODE TO INDICATE SYNAD 
END IF 

RETURN TO CALLER 
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Figure 3-86. DPPSCHK3 



» SYNAD ROUTINE FOR DOS CHECK • 

INPUTS =<A(PRIM*RY DECS), AUOA), A(CTLA), A<BACKUP DECBJ) 



IF BACKUP IS IN-SERVICE 

THEN SEE IF ERROR WAS A DISK FAILURE 

IF EPFCR IS A UNIT CHECK, OP 

IF ERROR IS A CHANNEL DATA CHECK, 
01 A CHANNEL CONTRO^ CHECK, CR 
01 AN INTERFACE CCNTRCL CHECK, 
01 THEN 

01 IF ERROR IS BUS GUT PARITY, 
01 EQUIPMENT CHECK, 
01 DATA CHECK, OR 
01 OVERRUN, OR 

01 IF ERROR IS PERMANENT ERROR , THEN 
01 

02 NOT A USER ERROR SO SWITCH CVER IS CALLED FOR* 



02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
03 
03 
03 
03 
03 
03 
03 
02 
01 



END IF 
ENDIF 
ENDIF 

RETURN TO CALLER 



UNSHARE THE DOS 
LCCK THE DOS 



SWITCH PRIMARY WITH BACKUP 



SHARE THE OCS 



UNLOCK THIS DOS 



IF I/O ST ARTEC FOR NEW PRIMARY 
THEN CHECK DECB(PRI) 



BRANCH TO OS/VS CHECK ROUTINE 



SET SYKAD £ EOD AOCPESSES 
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Figure 3-87. DPPSCHK4 



INPUTS = (A i BACKUP DECB) , AMOA) , A (CTL A) ) 
•CHECK A EACKUP DECS' 
IF I/O V<AS ST ART ED t THEN 
01 CALL CS/VS CHECK ROUTINE 

01 IF ECD OR SYNAO TAKEN? THEN 

02 TAKE BACKUP CUT OF SERVICE 
01 END IF 

END IF 

RETURN TO OLLER 



Future 3-88. DPPSCHPR 



•SET AI PR I MARY CECB) AND ACEACKUP DECB ) • 

INPUTS = ( A(CCSCECB) f ACPRIMARY CCB) ) 

OUTPUTS = $15 « A ( PRIMARY DECB) OR ZERO 
$0 = AIBACKUP DECB) OR MEANINGLESS 

IF DECB 1 IS PRIMARY 
01 SET BACKUP ADDRESS TO 0ECB2 
ELSE 

01 IF DECB2 IS PRIMARY 

02 SET BACKUP ADCRESS TG DECB1 

01 ELSE 

02 INDICATE NO PRIMARY CECB 
01 END IF 

ENDIF 
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Figure 3-89. DPPSCLUP 



■DDS CLEAN UP ROUTINE' 

INPUTS: REGISTER CONTENTS 

0 -MTCEX) IF ENTERED FRCM DPPTPMON 
-A(TCB) IF ENTERED FROM PORJECTED O/S ETXR ROUTINE 

1 A(XCVT) 

2-12 NCT EXAMINED* SAVED € RETURNED 

13 CALLER • S SAVE AREA 

14 CALLER" S RETURN ADDRESS 

15 THIS ROUTINES ENTRY PCINT 

FUNCTION: CLEAN UP THE DDS FUNCTIONS LEFT OUTSTANDING 
BY THIS TASK 

GET 1ST TCBC 

STRTSRCH 

EXITIF 

□RELSE 

ENDLCCP 

ENDSRCH 

IF THIS TASK HAS A DDSLOCK, THEN 
01 RELEASE THE ODSLOCK 
ELSE 

01 IF THIS TASK SHARES A DOS 

02 UNSHARE THAT CDS 
01 END IF 

ENDIF 

WHILE THERE ARE MCRE DDSDECBS T-CHAINED 
01 REMCVE THESE DDSDECBS FRCM THEIR IOA CHAINS 
01 REMOVE THESE CDSDECB"S FRCM THEIR T-CHAIN 

ENDDO 

WHILE THERE ARE MORE IOA«S FOR THIS TASK 
01 PROCESS TERMINATION CF THESE IOA'S 

01 WHILE THERE ARE MORE RSRVD DDSDECBS 

02 FOR THIS ICA 

02 REMOVE THESE CDSOECBS FPOM THE T-CHAIN CF THE CWNER TASK 

01 END DO 

01 DISCCNNECT THIS ICA FRCM THE CTLA 
01 RESTORE USER'S OCB TO PRE-ODSCPEN STATUS 
01 FREE THE CORE FOR THIS IOA 
ENDDO 

CLEAR THIS TASKS ICA CHAIN CRIGIN 
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Figure 3-90. DPPSCL1 



• CLOSE A DCS • 

INPUTS $1 = (A(UDCB)) 

SAVE INPUTS 

GET ACCRESS OF USERS DC 8 

SEE IF THIS IS A DDS 

IF NOT A CDS 
Oi RESTORE REG1 
01 ISSUE CLOSE SVC 

ELSE THIS IS A DDS 
01 GET A(DDSICA) 

01 IF PRIMARY DC B OPENED* THEN 

02 CLCSE DC81 
Oi ENDIF 

01 IF BACKUP DCB IS OPENED, THEN 

02 CLOSE CCB2 
01 ENDIF 

01 PREPARE TO RESTORE UOCB TO PRE/OPEN 
01 STATLS 

Oi RESTORE UDCB BUFCB WORD 

01 RESOTRE UCCB 0 FLAGS WORD 

01 RESTORE UDCB CPTICN CODE WORD 

01 RESTORE UDCB NOTE /POI NT/CNTL WORD 

01 STATUS 

01 UNTIL 

02 ALL DDSDECBS ARE CFECKEC 

02 IF THIS CDSDECB RESERVD,THEN 

02 ENDIF 
01 ENDDO 

01 FREE UP ThE DDSIOA SPACE 
ENDIF 

RETURN TO CALLER 
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Figure 3-91 (1 of 2). DPPSCMPR 
• CCMPARE FOR DCS* 

FUNCTION - TO INVCKE THE IEBCCMPR MODULE TO PERFORM 
A COMPARE CN A COS 

INPUTS - $1 POINTS TO ACCTLA), A(DDNAMEl), A (DDNAME2 ) 
OUTPUTS - MESSAGES INDICATING COMPARE STATUS 
ROUTINES CALLEC - LINKS TO IEBCCMPR 
RETURN CCDE - NOT SET 

PREREQUISITES - REQUIRES A CDSCMPIN DO CARC IN THE JCL 
TO HOLC IEBCCMPR»S INPUT 

MOVE THE DCNAMES FRCN THE INPUT DSECT TO THE DONAME LIST 
FOR IEBCOMPR AND TO THE RDJFCB DCBS 



ESTABLISH THE ACCRESSES FOP THE EXIT LIST AND JFCB AREAS 

IN THE RDJFCB DCBS 



READ THE JFCBS 



IF 

01 THE RETURN CODE IS NZERG, EXIT WITH THE ERROR MESSAGE: 
01 'UNABLE TO ACCESS DATASETS* 
END IF 

MOVE THE DSCRG (PS CR PO) TO THE TYPORG CONTROL CARD FOR 
IEBCOMPR, OPEN DDSCMPIN, PUT THE CONTROL CARD RECORD, AND 
CLOSE AND FREEPOOL DDSCMPIN 

NOTE: IF THE TYPCRG'S ARE NCT ECUAL EXIT KITH 

THE ERROR MESSAGE: 

•CATA SETS NCT THE SAME TYPE" 

IF THE DDSCMPIN DCB CANNOT BE OPENED EXIT 
WITH THE ERROR MESSAGE: 
• NO DDSCMPIN CC CARD • 

IF BP AM 
Oi SET TYPORG TO PO 
ELSE 

01 SET TYPEORG TO PS 
END IF 

IF DSORGS NOT EQUAL 
Oi EXTT WITH ERROR MESSAGE 
END IF 

IF NO DDSCMPIN DC CARD 
01 EXIT WITH ERROR MESSAGE 
ENDIF 
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Figure 3-91 (2 of 2). DPPSCMPR 

OUTPUT MESSAGE: •CDS COMPARE IN PROGRESS • 
LOCK THE CDS 

LINK TO THE IEBC0*Pfl MODULE 

SAVE THE RETURN CCDE AND UNLOCK THE DOS 

EXAMINE THE IEBCCMPR RETURN CODE AN D EXIT W ITH THE APPROPRIATE 
MESSAGE: 

RC=0 ~ »CCMPARE ENDED DATASETS EQUAL* 

RC NE 0 - ■ CCMPARE ENDED - CATASETS NOT ECUAL • 



IF *: THE CCNCCDE IS ZERO, THEN 
01 PRINT CCMPARE ECUAL MSSGE 
ELSE 

01 IF *: IF CCNCODE GREATER THAN 8, THEN 

02 PRINT STATLS UKNOWN 

01 ELSE 

02 PRINT UNEQUAL MESSAGE 
01 END IF 

END IF 
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Figure 3-92. DPPSCP2B 



• COPY A ODS PRIMARY TO BACKUP' 

INPUTS - • FRCM* START, "FRCM* STOP, «TO« START. 

A(OPENEO INPUT DCBI, 

A(CPENE0 OUTPUT OCB i , A ( DONA WE ) ) 



GET A BUFFER LARGE ENOUGH TO HOLO A COMPLETE TRACK, 1360C BYTES 



GET THE 1ST FROM £ TO TRACKS 



STRTSRCF THERE ARE NC MORE TKS 

01 COPY TRACK TO TRACK: P ARMS = FROM CCHH, FROM OCB, TO CCHH, 

01 TO DCB, A ( BUFFER ) 

01 

01 

01 EXIT IF COPY WAS UNSUCCESFUL 
01 

EXITIF COPY WAS NOT SUCCESSFUL 
ORELSE 

01 GET NEXT FRCM £ TO TRACK 
01 

ENOLOCP 

01 SET THE RETURN COCE TO ZEPO 
01 

ENDSRCH 

FREE THE TRACK BUFFER 



RETURN TO CALLER 

BGNSEG U4 HAS CCHH TO BE INCREMENTED 

01 IF NEED TO GO TC NEXT CYLINDER 

02 GG TO NEXT CYLINDER 
01 END IF 

ENDSEG BMPTRK $14 HAS INCREMENTED CCHH 
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Figure 3-93. DPPSCRBK 

•CREATE A DOS BACKUP^ 

INPUTS = (A(CTLA) ) 

IF BACKUP IS CUT-OF-SERVICE. 
01 UPDATE THE BACKUP DSCB 
01 SET A(ARJFCB) IN PRIMARY CCB 
01 SET A(JFCB) IN ARJFCB 
01 SET A(JFCB) IN CAMLIST AS DSNAME 
01 SET A(VOL SER NO WITHIN JFCB) IN CAMLIST 
01 SET A(DSCB) IN CAMLIST 
01 MOVE IN PRIMARY DDNAME 
01 MOVE IN BACKUP CCNAME 
01 READ THE JFCB 
01 IF JFCB READ IN 0. K. 



02 GET THE PRIMARY DSCB 

02 MOVE IN DSORG 

02 MOVE IN RECFM 

02 MCVE IN CPTCD 

02 MOVE IN KEYLEN 

02 MCVE IN BLOCK S IZE 

02 MOVE IN RECORD LENGTH 

02 OPEN AND CLCSE FOR OUTPUT Tl-E BACKUP 

02 CCB SO AS TC UPDATE THE DSCB 

02 IF 

03 SET MACRF TO W I 
02 END IF 

01 END IF 

01 CALL DPPSCP2B TO CCPY PRIMARY TO BACKUP 

01 IF THIS DOS IS NCT OPEN, CR 

01 IF IT IS NOT OUTPUT , THEN 

02 GET THE ADDRESS OF THE VOLID OF PRIMARY IN $9 

02 MOVE THE CCHHR OF THE PRIMARY DSCB TO THIS PROGRAM'S WORK AREA 

02 

02 CALL DPPSCSCB TO UPDATE THE BACKUP DSCB TO HAVE THE 

02 CURRENT TTRLL IN DSILSTAR (LAST RECORD PC INTER AND NO. BYTES 

02 LEFT ON THIS TRACK) 

01 END IF 

01 IF COPY FAILED, THEN 

02 SET RETURN CCDE AS SUCH 

01 ELSE 

02 IF THERE IS AN ICA, THEN 

03 CALL DPPSCPCL TO ASYNCHRONOUSLY OPEN THE BACKUP DCB 

03 IF DCB NCT OPENED FOR INPUT » 

04 CALL DPPSRCIC TO RECREATE TFE I/O ON THE BACKUP 

04 IF BPAM DATASET 

05 SET BACKUP DCB'S MEMBER TTR TO PRIMARY'S 
04 END IF 

03 END IF 

02 END IF 

01 END IF 



ELSE 

01 UNABLE TO CCMPLY, PRINT BACKUP IS IN-SERVICE 
ENOIF 
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Figure 3-94 (1 of 4). DPPSCT2T 

* COPY TRACK TO TRACK • 

INPUTS= «FRCM» CCFH, 'TO* CCHH, INPUT CCB(OPENED), 
OUTPUT DC B (OPENED ) » A ( BUFFER ) TO HOLD TRACK 

* CCPPLETE THE FIELDS IN THE • FROM • IOB ****** 

* SET DATA ADDRESS IN EACH CCW OF THE CHANNEL PROGRAM **** 

UNTIL THE LAST CCW IS SET 
01 SET ACDRESS IN CCW 
ENCDC 

* CLEAR THE ECB ****** 

* READ INTO CORE THE COUNT FIELDS FOR ALL RECORDS ****** 

* IEXECUTE 'FROM • IOR CHANNEL PROGRAM ) 

* WAIT ON THE ECB *** 

* SEE IF THE CHANNEL PROGRAM TERMINATED WITH "RECORD 

* NOT FOUND' 

IF COMPLETION CODE IS UNSUCCES 
IF SENSE BYTES INDICATE RNF 
IF UNIT CHECK IN CSW 

01 * SEE IF RECORD 0 WAS READ IN; IE; IS 1ST CCW COMPLETE 

01 

01 IF RECORD PO WAS READ INTC CORE 
01 

02 * TURN OFF CCMMAND CHAINING FLAG FOR CCW PRIOR TO 
02 * FAILING CCW 

02 
02 

02 * CHANGE ALL CHAINEO READ COUNT COMMANDS TO READ 

02 * CCUNT, KEY t € CATA COMMANDS 

02 
02 

02 CALCULATE FOR ALL CHAINED READ COUNT CCkS THE COUNT 

02 VALUES AND CATA ADCRESS VALUES FROM THE CORRESPONDING 

02 COUNT FIELDS READ INTO CORE. 

02 

02 WHILE TFE CCW IS CHAINED 

03 SET NEW COMMAND CODE t DATA ACDRESS 

03 CALCULATE NEW DATA ADCRESS FOR NEXT CCW 

03 SET COUNT FOR THIS CCW 

03 GET NEXT CCW 

02 ENDOO 3. 97 
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=igure 3-94 (2 of 4). DPPSCT2T 



02 
02 
02 

02 STRTSRCH NEXT CCW ISN'T CHAINED 

02 

03 * CLEAR THE ECB 

03 
03 

03 * REBUILD THE IOB 

03 
03 

03 * READ IN ALL CATA FRCM TRACK UP TO EOD; IE; EXECUTE 

03 * CHANNEL PROGRAM 

03 

03 

03 * WAIT ON THE ECB 

03 
03 

03 * SEE IE CHANNEL PPOGRAM TERMINATED WITH EOD. 

03 * IF NOT f EXIT THE SEARCH 

03 

02 EXITIF NOT UNIT EXCEPTION 

03 IF NOT PERMANENT ERROR 
03 GET CURRENT CCW ADDRESS 

03 IF NOT EOD - POSITIVE DATA LENGTH 

03 

04 * SEE IF CHANNEL PRCGRAM COMPLETED SUCCESSFULLY 

04 

04 IF NCT v ERROR EXIT 

03 OPELSE 

04 * CHANNEL PROGRAM ENDED CN AN EOD 

04 
04 

04 * SET AOCRESS OF NEXT CCW IN CATA FIELD OF 2ND TIC CC 

04 
04 

04 * SET ADCRESS OF CCUNT DATA IN DATA FIELD OF SEARCH I 

04 

04 

04 * RESET START POINTER FOR IOB REBUILD TO SEARCH ID CC 

04 
04 

04 SEE IF NEXT CCW IS CHAINED 

04 

03 ENDLOGP 
03 ENDSRCH 

03 
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Figure 3-94 (3 of 4). DPPSCT2T 



03 * COMPLETE TRACK SHOULD NCW BE IN BUFFER 

03 

03 

03 CHANGE ALL CHAINED READ COUNTt KEY , I DATA CCWS 

03 TO WRITE COUNT , KEY, £ CATA, 

03 * AND SET THE 'TO" ADDRESS IN THE CYLINDER ADDRESS OF 

03 * EACH SUCH CCVI. 

03 

03 WHILE THIS CCW IS CHAINED 

04 SET THE CCMNAND CODE TO WRITE CK&CATA 
04 MOVE IN •TO' CYLINDER ADDRESS 

04 GET NEXT CCW 

03 ENDDO 

03 

03 CHANGE THE CYLINDER ADDRESS OF RO CCUNT AREA 

03 TO THE 'TO' ADDRESS 

03 

03 

03 * COMPLETE THE I OB FOR THE WRITE EXCP 

03 

03 

03 SET UP THE WRITE CHANNEL PROGRAM AS FOLLOWS: 

03 

03 (I) SEARCH ID EQUAL ON THE COUNT FIELD OF RO. 

03 (I. I) IF NO CATA IS TO BE WRITTEN 

03 EXCEPT FOR RO, THEN SKIP TO (4) 

03 (2) WHEN FOUND, TIC TC THE 1ST WRITE COUNT, KEY, 

03 £. DATA CCW, WHICH IS ALREADY CHAINED TO THE 

03 NECESSARY STRING OF SUCH CCWS. 

03 (3) CHAIN THE LAST CHAINED WRITE COUNT, KEY, £ 

03 CATA CCW TO SEARCH ID EQUAL ON THE COUNT FIELD 

03 OF RO. 

03 (4) WHEN THE SEARCH IS SATISFIED, TIC TO THE LAST 

03 CCW, WHICH SHCULD BE WRITE CATA FOR RC. 

03 

03 IF AT LEAST CNE 

04 NGN— RO CATA RECORD 

04 IS TC BE WRITTEN, THEN 

04 SET UP 2ND SEARCH ID CN RO 

03 ELSE 

04 GET A( WRITE RO ) TO BE BUILT 

04 SET THAT ADDRESS AS TIC ADDRESS 

04 AFTER SEARCH ID CN RO IF GOOD 

03 END IF 

03 

03 * CLEAR THE ECB 

03 

03 
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Figure 3-94 (4 of 4). DPPSCT2T 

03 * WRITE OUT THE TRACK ; IE; EXECUTE THE CHANNEL PROGRAM 

03 
03 

03 * WA IT CN THE ECB 

03 
03 

03 * SEE IF THE CHANNEL PROGRAM COMPLETED SUCCESSFULLY 

03 * IF NOT t ERROR EXIT 

03 
03 

03 * ZERC THE RETURN CODE 

03 
03 

02 ELSE 

03 UNABLE TO READ RECORD 0 - SET RETURN CODE TO 12 
02 ENCIF 

01 ELSE 

02 * UNABLE TO READ THE COUNT FIELDS .- SET RETURN CODE = 8 

02 

01 END IF 

01 RETURN TO CALLER 
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Figure 3-95. DPPSDDSX 

•SEARCH FOR AN ICA FROM A GIVEN UCCB« 

INPUTS MA(UDCB)) 

GET START L STOP OF CTLAS 

STRTSRCH 

01 WHILE THERE ARE STILL DDSCTLAS, DO 
EXITIF 

01 IF CORRESPONDING I0A FOUND 

01 ORELSE 

02 GET NEXT CTLA 
01 ENDLCOP 

01 ENCSRCH 

01 RETURN TO CALLER 
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Figure 3-96. DPPSINIT 



•INITIALIZE THE DOS SYSTEM* 
ADDRESS OF XCVT 

FILL CUT TEMPORARY DR 846 * 

CTLA WITH DR 846 * 

DCNAMES AS PER CTLIN STREAM 
IF UNABLE TO OPEN DR 846 * 

DDSTATUSt OR DR 846 * 

SET FLAG FOR NOSTAT MESSAGE 
IF *: THERE ARE NC DECLARATIONS 
01 SET END = START 
ELSE 

01 IF ERROR IN CTLIN STREAM 

02 ABEND WITH CODE = 80 
01 END IF 

01 DETERMINE THAT EACH DOS 
01 DECLARATION IS CORRECT 
01 WRT JCL 

01 IF BAD DOS DECLARATION 

02 ABENO WITH CODE = 80 
01 END I F 

ENDI F 

ALLOCATE DCSCTLA, MOVE 
TEMPORARY CTLA INTO IT. 
SET THE DDSCTLA ADDRESS 
IN THE SCVT 

IF ERROR IN DDSCTLA ALLOCATION 
01 ABEND WITH CODE = 80 
ENDI F 

CALCULATE MAX BLKSZE DR 846 * 

SET MAX BLOCKSIZE IN DDSCTLFD FOR WRST 

IF THIS IS READONLY DR 846 * 

01 MODE* THEN DR 846 * 

01 CR 846 * 

01 TURN CN READONLY BIT DR 846 * 

ELSE DR 846 * 
01 CALL TO WRITE DDSTATUS 

END IF DR 846 * 

IF NOSTAT MESSAGE REQUIRFD, THEN 
01 OUTPUT THE MESSAGE 
END IF 

RETURN TO CALLER 
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Figure 3-97 (1 of 2). DPPSINI2 

•PROCESS THE CTLIN STREAM* 

INPUTS = (A(CTLA)fMAXDDS) 

OPEN THE INPUT STREAM 

IF *: INPUT STREAM SUPPLIED, 

01 GET LENGTH OF EACH CTLA OR 846 * 

01 MULTIPLY BY MAX NC. CTLA«S TO GET DR 846 * 

01 MAX BL0CKSI2E FOR ODSTATUS DR 846 * 

01 SET IN DDSTATUS DCB OR 846 * 

01 GET THE 1ST CARD OR 846 * 

01 GET 1ST PARM DR 846 * 

01 SET READONLY FLAG ON OR 646 * 

01 IF »,0R READONLY WAS DR 846 * 

01 SELECTED, OR CR 846 * 

01 SET REAOONLY BIT CFF 

01 IF REFRESH WAS DR 846 * 

02 SELECTED, THEN DR 846 * 

02 SET UP THE CDSCTLA'S AS PER DDSTATUS CATASET DR 846 * 

02 OPEN ODSTATUS DR 846 * 

02 IF CDSTATUS OPENED DR 846 * 

03 CK, THEN DR 846 * 
03 

03 CHECK THE REAC DR 846 * 

03 GET ADDRESS OF IOB DR 846 * 

03 GET MAX BLOCK SIZE DR 846 * 

03 SUBTRACT BYTES NOT READ TO DR 846 * 

03 GET ACTUAL ODSTATUS RECORD DR 846 * 

03 LENGTH DR 846 * 

03 SET ADDRESS OF END OF DDSCTLA'S DR 846 * 

03 CLOSE DDSTATUS OR 846 * 

03 CLOSE THE INPUT STREAM DR 846 * 

03 INDICATE NORMAL RETURN CODE DR 846 * 

03 SET RETURN REG 1 TO ADDRESS OF CR 846 * 

03 ENO OF CTLA'S DR 846 * 

03 INDICATE REFRESH IN RETREG 0 DR 846 * 

03 IF READCNLY SPEC I F I EC ,T FEN DR 846 * 

04 INOICATE READONLY IN RETREG 0 DR 846 * 
03 ENDIF DR 846 * 

02 ELSE DR 846 * 

03 INDICATE UNABLE TO OPEN DCSTATUS OR 846 * 
02 ENDIF DR 846 * 

01 ELSE DR 846 * 

02 UNTIL *: MAXIMUM CHECKED 

03 PROCESS THIS CARD 

03 GET NEXT SLOT IN CTLA 

02 ENDDO 

01 ENDIF 
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Figure 3-97 (2 of 2). DPPSINI2 

01 BGNSEG 

02 CLCSE THE INPUT STREAM 
02 ACCRESS OF END CF CUA 

02 INDICATE STANCARD START MODE 

01 ENDSEG CARDEOD 
ELSE 

01 RETURN WITH CCNCCDE = 4 
END IF 

RETURN TO CALLER 

BGNSEG OR 846 * 
01 THIS SEGMENT RETURNS THE PROPER 
01 OFF DDSTATUS READ 
01 CLOSE DDSTATUS 

ENDSEG SYNEOD 



DR 846 * 

RETURN CODE ON SYNAD OR EOD DR 846 * 

DR 846 * 

DR 846 * 



Figure 3-98. DPPSINI3 

•VALICATE EACH COS DECLARATION WRT JCL • 

INPUTS = (A(CTLA) f AICTLAEND) 

SET THE ADDRESSES FOR READ JFCBS 

WHILE THERE ARE MORE CTLA'S 
01 MOVE IN DDNAME1 
01 MOVE IN DCKAME2 
01 REAC THE JFCBS FOR EACH DCB 
01 ERROR IF NC CD CARD 

01 INSERT OTHER JFCB VALIOITY CHECKS HERE 

01 CLEAR THE JFCBS 

01 GET NEXT CTLA ENTRY 

ENDDO 

DOS DECLARATIONS PASS VAL CHECK 
RETURN TO CALLER 
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Figure 3-99. DPPSINI4 

•ALLOCATE AND INITIALIZE PERMANENT COSCTLA* 

GET ACCRESS OF SCVT 
CALCULATE LENGTH CF CTLA 
SET LENGTH OF DCSCTL 
FOR GETMAIN 

ALLOCATE CDSCTLA SPACE 
SAVE CCSCTLA START ADDRESS 
CLEAR CCSCTLHD IN ITS ENTIRETY 
GET ACCPESS OF 1ST ENTRY 
IN DDSCTL 

ADDRESS OF END OF DDSCTL A 

STORE THESE TWO ADDRESSES IN DDSCTL A hDR 

L CAD I/C ROUTINES £ SAVE THEIR ADDRESSES 

GET ADDRESS OF DPPSNTPT 

GET DOS NOTE ROUTINE 

SAVE ADDRESS IN NTPT 

GET POINT/FINCCTYPE C) ROUTINE 

SAVE ADDRESS IN NTPT 

GET DDS SHARE ROUTINE 

SAVE ADDRESS IN CTLI-D 

GET DDS UNSHARE ROUTINE 

SAVE AODRESS IN CTLHD 

GET DDS LOCK ROUTINE 

SAVE ADCRESS IN CTLHD 

GET DDS UNLCCK ROUTINE 

SAVE ADCRESS IN CTLI-D 

ADDRESS OF 

DDSCTLA IN 

SCVT 

RESET START CTLA ADDRESS 
IF 

01 ANY CCS ' WERE DECLARED, THEN 
01 MOVE CTLA INTO DOSCTLA 
END IF 

RETURN TO CALLER 
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Figure 3-100. DPPSINI5 

•DEFORMAT Tl-E CTLIN CARD* 

I NPUTS= (A(CARC)*A(END)*A(CTLA)I 

CLEAR THE DDNAMES 

ZERO REM A INOER OF CTLA ENTRY 

FINO 1ST NON-BLANK CHARACTER 

IF *: A USER OONAME WAS ENTERED 
01 GET THE USERS OCNAME 
01 MOVE IN USER'S OCNAME 
01 FINO NEXT NCN-BLANK CHARACTER 

ENDIF 

START OF ODS PAIR NAMES 

GET NEXT NON— BLANK CHARACTER 

GET THE 1ST DCNAME 

MOVE IT TO THE CTLA 

IF • » THE N MCVE IT TO UOON ALSO 

END IF 

GET 2ND DDNAME 

IF BACKUP IS CUT-CF-SERVICE 

01 IF • »THEN 

02 THE REQUEST IS FORMATTED WRCNG* TFEN 
02 ERROR EXIT 

01 ENDIF 

01 SET BACKUP OUT-OF-S ERV ICE FLAG CN 
ELSE 

01 ERROR EXIT IF NOT FORMATTED CORRECTLY 
END I F 
BGNSEG 

01 SET RETURN REG TO ADDRESS OF NEXT DEL IMETER 
ENDS EG FINDP 



Figure 3-101. DPPSINI6 

•DEFINE LOCKS FOR EACH CTLA* 

* INPUTS = A(CTLHD),A(XCVT) 

WHILE THERE ARE MCRE CTLAS 
01 DEFINE A LOCK FOR THIS DOS £ CLEAR THE LOCK/ShAR WORDS 
ENDDO 
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Figure 3-102. DPPSLOCK 



• LCCK A CDS • 
GET ACDRESS OF CTLA 
GET ACCRESS OF ECB 
CLEAR THIS LECB 
WHILE THERE ARE MORE LECBS 
BGNWHILE 
01 GET NEXT LECB 
ENDDO 

PUT THIS LECB IN CHAIN 
IF THERE ARE SECBS, OR 
IF THERE IS A PRIOR LOCK 
Oi WAIT ON THIS ECB 
ELSE 

01 LET CALLER HAVE CONTROL NOW 
END IF 



Figure 3-103 (1 of 3). DPPSMSGI 



•OOS INPUT MESSAGE PROCESSOR • 

INPUTS = (A< XCVT) , A (RESTBL) »A(PPCBL>) 

PRCBL = ((LG,,ID),( L, A (1 ST- FARM )),••«, (L,A( LAST— P ARM) ) ) 
IF THERE IS A PARK I, THEN 
01 MOVE IN THE 1ST P ARM 
END IF 

IF DSNAME CODED, THEN 
01 SKIP OVER KEYWORD 
ENDIF 

IF THIS DDS NOT DECLARED, THEN 
01 ERROR MESSAGE 
ELSE 

01 IF A 2ND PARM WAS ENTERED 

02 IF A 2N0 PARM, THEN 

03 MCVE IN THE 2ND PARM 
02 ENDIF 

01 ENDIF 

01 IF • ,THEN NC PARM2 ENTERED 

02 DEFAULT TO STATUS 
01 ENDIF 

01 IF REQUEST NOT UNDERSTCOC, THEN 

02 ERROR MESSAGE - REQUEST NOT UNDERSTOOD 

01 ELSE 

02 PROCESS THE REQUEST 
01 ENDIF 

ENDIF 
BGNSEG 
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Figure 3-103 (2 of 3). DPPSMSGI 

01 TAKE THE BACKUP CUT-OF-SERVICE 
ENOSEG TAKE 
BGNSEG 



01 ATTEMPT TO CREATE THE BACKUP 

01 IF THIS IS READONLY MODE 

02 OUTPUT NO COPY MESSAGE AND RETURN 

01 ELSE 

02 IF 

03 THE CREATE WAS SUCCESSFUL ? THEN 

03 PRINT MESSAGE INDICATING SUCCESSFUL CREATE 

03 UPDATE DDSTATUS RECORD 

02 ELSE 

03 IF BACKUP IN SRVICE/TFEN 

04 PRINT MESSAGE INDICATING BACKUP ALREADY IN-SERVICE 

03 ELSE 

04 PRINT MESSAGE INDICATING BAD CREATE 
03 ENDIF 

02 ENDIF 

01 END IF 



ENDSEG CREATE 
BGNSEG 

01 IF 

02 THE BACKUP IS IN SERVICEt THEN 

02 PRINT A MESSAGE FOR BOTH DATA SETS 

01 ELSE 

02 PRINT A MESSAGE FOR PRIMARY OATASET- eACKUP=OUT-QF-SERVICE 
01 END IF 

ENDSEG STATIS 
BGNSEG 

01 IF 

02 THE BACKUP IS NCT IN SERVICEt THEN 

02 PRINT A MESSAGE INDICATING SWITCH NOT PCSSIBLE 

01 END I F 

ENDSEG SWITCH 

BGNSEG 

01 IF NO OPENED DCSCCB f S 



02 SEE IF A THIRD DD NAME WAS SPECIFIED 

02 STRTSRCH THREE BLANKS ENCOUNTERED 

02 EXITIF NC REPLACEMENT SPECIFIED 

02 ORELSE 

03 CHECK NEXT PARM 

02 E NOLO CP 

03 IF 

04 THE REPLACEMENT DDNAME EXCEEDS 8 CHARACTERS? THEN 
04 LIMIT REPLACEMENT DDNAME SIZE TO 8 CHARACTERS 

03 ENDIF 
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Figure 3-103 (3 of 3). DPPSMSGI 



03 MCVE IN REPLACEMENT DCNAME 

02 ENOSRCH 

02 SET THE NEW DC NAME S IN THE CTLA 

02 UPDATE CCSTATUS RECORD 

01 ELSE 

02 PRINT A MESSAGE INDICATING REPLACE REQUEST IS PRECLUDED BY 
02 OPEN DDSCCB 

01 END IF 

ENDSEG REPLACE 
BGNSEG 

01 IF 

02 A PARAMETER CAN EXIST, THEN 

02 SEARCH FOR A BLANK, WHICH GETS THE PARAMETER 

01 END IF 

ENDSEG FINDP 

BGNSEG 

01 IF ANOTHER PAR* ENTERED 

02 IF THIS PARM IS NOT NULL, AND 

02 IF ' , THEN 1ST CHARACTER NOT A BLANK 

03 MCVE IN USER SPECIFIEO DDI 
02 ENDIF 

02 IF ANCTHER PARM ENTERED 

03 IF PARM IS NOT NULL 

03 IF • , THEN 1ST CHARACTER NOT A BLANK 

04 MCVE IN USER SPECIFIED DD2 
03 ENDIF 

02 ENDIF 
01 ENDIF 

01 LINK TO COMPARE ROUTINE 
ENDSEG CCMPARE 



Figure 3-104. DPPSMSGO 

• DOS MESSAGE OUTPUT PROCESSOR* 

INPUTS - ( IC,A(PAPMl),...,A<LAST PARM) ) MAX=5 
IF 

01 THE OUT MESSAGE PROCESSOR IS INITIALIZEC, THEN 
01 ISSUE THE APPROPRIATE MESSAGE MACRO 
ENDIF 
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Figure 3-105. DPPSNOTE 

• PERFCPN NOTE ON A CDS • 
INPUTS $1 = A(UDCB) 
SAVE $1 

GET ACCRESS CF I0A 

ISSUE NCTE CN PRIMARY DCB 



Figure 3-106. DPPSNTPT 



• NOTE OR PCINT FOR ODS» 

CALL THE NOTE OR POINT ROUTINE FOR PROCESSING 
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Figure 3-107. DPPSOPCL 

1 OPEMCLCSE HALF DF A DOS 1 

INPUTS = ( A( I0A ) ) 

SAVE INPUTS 

GET AODPESS CF IOB 

GET ACCRESS OF CVT 

GET ACCRESS OF CURRENT TCB 

GET ADDRESS OF CPENER TCR 

IF THIS IS CPENER T C B 
01 EXECUTE THE CPEN/CLCSE SVC FRCM IOA 
01 SET ZERO RETURN CCDE 

ELSE 

01 SAVE RESUME PSW 

Oi VAL IC ATE THAT OPENER TCB IS STILL DEFINED UNDER THIS JOB STEP 
01 GET JOB STEP TCB 

01 THIS VALICATICN ALGORITHM ASSUMES THAT 
01 THF JOB STEP TASK PRIORITY IS GE 
OL TO THE HIGHEST PRIORITY CF ALL CAUGHT ER 
01 TASKS 

01 STPTSRCH THERE IS A LOWER TCB 

01 EXITIF CPENER TCB FOUND 

02 IF TCB NOT IN SAME JOB STEP 

03 S FT RTN CODE AS BAD 
02 END IF 

01 ORELSE 

02 GET NEXT LCWER TCB 
01 ENDLOOP 

01 ENDSRCH 

01 IF OPENER TCB IS STILL VALID 

02 GET ADDRESS OF DOS A SYNCHRONY S 
02 UPEN/CLCSE ROUTING 

02 CREATE IRB FOR CLOSE 

02 SAVF THE IRB AODRESS 

02 GET ACCRESS OF WORK AREA ( I QE ) 

02 CLEAR THF ICE 

02 PUT ADDRESS CF I OA IN ICE 

02 PUT ACDRESS C F IRB IN ICE 

02 PUT ADDRESS OF CPENER TCB IN IOE 

02 CLEAR THE AECB 

02 CALL ST £ C F2 EXIT EFFECTOR 

02 RESET THF PSW 

02 WAIT ON ASYNCH EC B 

02 SET ZERC RETURN CODE 

01 ELSE 

02 RESFT IFF PSW 

02 SET RETURN CODE FOP UNABLE TO CCMPLY 

01 END I F 
ENDIF 
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Figure 3-108. DPPSOP1 

• cpen a cdsccb' 

inputs = a(cpen par/!yetfrs) = ((cpticn by t e j » al 3 < u s er ' s dc b ) ) 



SEE IF THIS IS A DECLARED DOS 



IF THIS IS NCT A .DECLARED CDS 

01 PERFORM STAN 1 DART CS/VS OPEN 
01 

ELSE 

OL IF THIS IS REACCNLY MODE * AND 

01 IF OPEN FCP CUTPUT, TF EN 

02 PETLPN TO USER MTHCUT CPEN 
01 END I F 

01 

01 DOS LOCK THIS DDS 
01 

01 IF THIS CTLA FAS NCT YET BEEN 

02 CONNECTED 



0? 
02 
02 
02 
02 
01 
01 
01 
01 
01 



DDS UNLCCK THIS DCS 



END IF 



CALL CP2 TC CCNPLETE THE CUAL OPEN 



A(CFTIf;N BYTE ), A{ USER • S DCB > , A ( CTL A > f A ( CTLHO ) 



END I F 
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Figure 3-109 (1 of 2). DPPSOP2 
•OPEN A DECLAREC DCS* 

INPUTS = A(CPTICN BYTE), A(USER«S OCBJ, AICTLAI, A(CTLHD) 



GET TFE MAIN CCRE FCR THE ICA TO BE BUILT 

IF NCP SHCULB BE I 
01 SET NCP VALUE TO I 
ENDIF 

INITIALIZE THE DDSICA 
UNTIL 

01 THE ENTIRE AREA IS CLEARED 
01 CLEAR THE NEXT 256 BYTE PORTION 
ENDDO 

IF STILL MORE BYTES TO CLEAR 
01 CLEAR THOSE BYTES 
ENDIF 

IF THIS IS A BP AM OS, OR 
IF THIS I S A BSAM OS, AND 
IF THIS IS NCT CREATE BCAM, 
Oi FORCE THE PCIM CPTICN 
ENDIF 

UNTIL ALL DDSDECBS * RE CONNECTED 
01 CONNECT THIS CDSDECB 
01 GET NEXT DDSDECB 

ENDDO 

CONNECT THE CTL A WITH THE 10A 



ATTEMPT TO OPEN PRIMARY CCB 



IF DCB1 OPENED OK 

01 IF BACKUP IS IN SERVICE 
01 

02 ATTEMPT TO OPEN BACKUP DCB 
02 

02 

02 IF DCB2 FAILED TO OPEN 

02 
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Figure 3-109 (2 of 2). DPPSOP2 



03 TAKE BACKUP CUT-OF-S ERVICE 

03 
03 

02 END IF 

01 ENDIF 
Oi 

ELSE 

01 DCB1 FAILED TC CPEN 
01 

01 ERROR IF BACKUP 
01 *: OUT-OF-SERVICE 
01 

01 SWITCH PRIMARY WITH BACKUP £ TAKE BACKUP OUT-OF-SER V ICE 

01 

01 

01 ATTEMPT TO OPEN PRIMARY OCB 

01 

01 

01 ERROR IF CCB 
01 *: FAILED TO OPEN 
ENDIF 

CONNECT USER'S CCB KITH THIS DDSIOA 



FREE THE IOA CORE 



DISCONNECT THE CTLA FRCM THE IOA 
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Figure 3-110. DPPSPNTF 

• PERFORM PQ INT/F INC ( TYP E C) GN A DDS • 

INPLTS: $1= A(CCB) $0 = A(LIST) , $13 = A(SAVE AREA) 
SAVE PARAMO 
SAVE PAR AMI 

GET CALLER'S SAVE AREA 
GET REUTRN ADDRESS 
POINT TO PREVIOUS INSTRUCTION 
GET ACCPESS OF IOA 
IF POINT REQUESTED 
01 PCI NT FOR PRIM/RY DCB 

01 IF BACKUP IN SERVICE 

02 POINT FCR BACKUP CCB 
01 END IF 

ELSE TYPE C FIND RECUEST EC 
01 FIND FOR THE PRIMARY 

01 IF BACKUP IN SERVICE 

02 FIND FOR THE BACKUP 
01 END IF 

END IF 



Figure 3-111. DPPSRCIO 

•RECREATE I/O FCR A DDS HALF » 

INPUTS = A ( CTL A ) » A(IOA), A (FROM-DCB) ♦ A(TO-DCB) 
GET ADORESS OF 1ST UNCHECKED CDS DECB 
IF THERE IS AT LEAST ONE UNCHECKED 
01 DDSDECB, THEN 

01 IF OSORG IS BS AM CR BPAP, THEN 

02 GET THE PRIMARY DECB 
02 

02 POINT •TC-DCB* TC TT R OF 'FROM-DCB'S' 1ST UNCHECKED DECB«S IOB'S 

02 SEEK ADDRESS 

02 

01 END IF 

01 foHlLE THERE ARE MORE DDSDECBS 

01 BGNHHILE 

02 PREPARE TO-CECB HALF FOR I/O AND CALL CS/VS READ/WRITE 
02 GET THE NEXT UNCHECKED CDSCECB, IF ANY 

01 ENDCO 
ELSE 

01 IF CSORG IS BSAM CR BP AM* THEN 

02 POINT THE RECREATED DAT AS £T AS PER OLD DCB'S DISK ADDRESS 
01 END IF 

END I F 
BGNSEG 

01 CALL THE OS ROUTINE TO CONVERT MBBCCHRR TO TT R 
ENDSEG CNVRT 
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Figure 3-112. DPPSRDWT 

• RFAC/WRITE MODULE FOR DOS • 
INPUTS = A(USER«S CECB) 

GET THE ACDRESSES OF THE USER»S DCB, THE ICA, ANO THE 

GET A(CCSCTLFO) 

IF THIS IS READONLY » THEN 

01 IF THIS IS BDAP , THEN 

02 IF THIS IS A WRITE, THEN 

03 RETURN TO USER WITHOUT DOING WRITE 
02 END IF 

01 ELSE 

02 THIS IS BSAN/8PAM 

02 IF THIS IS A WRITE, THEN 

03 RETURN TO USER WITHOUT DOING WRITE 
02 END IF 

01 END IF 
ENDIF 

DOS SHARE THE DCS 



RESERVE AN AVAILA8LE DOSDECfi - EXIT IF NONE AVAILABLE 



IF A CCS WAS RESERVED » THEN 

01 CALL RDW2 FOR ACTUAL READ/WRITE 
01 

ELSE 

01 SET CODE FCR NO DDSDECBS 
END IF 

DDS UNSHARE THIS DOS 
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Figure 3-1 13. DPPSRDW2 

• ACTUAL READ/WRITE FCR A DDS» 

INPUTS = <A(CDSDEC8), AUOA), A(CTLA), ACUSER'S DECB)) 



PREPARE DCSCECB1 FGR I/O 



BRANCH TO OS/VS REAC/WRITE ROUTINE 



IF NOT OPENEO FOR INPUT, ANC 
IF BACKUP IS IN-SERVICE 



01 PREPARE DCSCECB2 FOR I/O 
01 

01 IF CPENO FOR UPDATE, AND 

01 IF THIS IS A WRITE, THEN 

02 GET A< BACKUP ICBI FROM USER'S DECB 
01 ENOIF 

01 

01 BRANCH TO OS/VS READ/WRITE ROUTINE 

01 

01 

ENOIF 



Figure 3-114. DPPSRLSE 

•RFLEASE A CDSDECB* 

INPUTS = (A( IOA) ,A( DOS DECB) ) 

DE-CHAIN THIS DCS DECB FRCM ITS TCBX-DDS-CFA IN 
DE-CHAIN THIS DDSDECB FROM ITS ODSIOA CHAIN 
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Figure 3-115. DPPSRSRV 



• RESERVE A CDSDECB • 

INPUTS = (A( IOA) ,A(CTLA) 1 

RESERVE AN AVAILABLE ODSDECB 

STRTSRCH ALL COSDECBS HAVE 
01 BEEN CHECKED 

EXITIF THIS DDSDECB IS AVAILABLE 
01 CHAIN THIS COSOECB TO ITS IOA AND ITS TC8-DDS- 

□RELSE 
01 GET NEXT DDSDECB 

ENDLOCP 

01 INOICATE NO DDSDECB AVAILABLE 
ENDSRCH 



Figure 3-116 (1 of 2). DPPSRSTR 

GET A(XCVT) 
GET AISCVTJ 
GET A (DDSCT LHD 1 
IF THIS IS READCNLY MODE, AND 
IF THIS IS WRITE RESTART, THEN 
01 RETURN TO THE USER 
END IF 

TURN CFF RE AC CNLY BIT 

CALL DPPSTKCK TO CHECK TASKS 

FOR DOS VIOLATIONS 

GET A ( DDSCT LA* S ) 

SET MAX DDSTATUS BLCCKSIZE 

OPEN DDSTATUS FOR INPUT 

IF OPEN FAILED, THEN 
01 OUTPUT NC OPEN(INPUT) MESSAGE 
01 SET RETURN CODE TC 8 AND RETURN TO CALLER 
01 CLOSE DDSTATUS 
01 OUTPUT SYNAD ON RSTR 
01 CLOSE DDSTATUS 
01 UTPUT EOCAC CN RSTR 

END IF 

RFAD THE DDSTATUS RECORD AND CHECK THE READ 

CALCULATE THE DDSTATUS RECORD LENGTH 

GET A(IOB) 

GET RESIDUAL COUNT 

GET MAX BLCCKSIZE 

GET ACTUAL NC. BYTES READ 

CALCULATE A I END OF DDSTATUS RECORD ) 

CLOSE DDSTATUS 

WHILE THIS IS NCT END OF IN-CORE CTLA 
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Figure 3-116 (2 of 2). DPPSRSTR 



01 SEARCH THROUGH DDSTATUS RECORD FOR THIS ENTRY. 

01 IF THIS CTLA IS IN ODSTATUS 

02 UPCJTE INCORE ODSCTLA 
02 MCVE IN PRIMARY DONAME 
02 MOVE IN BACKUP DDNAME 

02 IF DDSTATUS BACKUP IS IN-SERVICE* 

03 THEN 

03 SET BACKUP GUT-OF-SERVI CE FLAG ON 

03 IN IN-CORE CDSCTLA 

02 ELSE 

03 SET BACKUP OUT-OF-SERVICE FLAG OFF 
02 END IF 

02 UPDATE IN-CORE USED COUNTER 

01 ELSE 

02 UPCATE IN— CORE FLAG COUNTER 
01 END IF 

01 GET NEXT INCORE ODSCTLA 
ENDDO 

IF MISSING DDSTATUS DDSNAME 
01 OUTPUT ■ SMALLER' 
01 MESSAGE 

ENDIF 

CALCULATE # DDSNAMES IN ODSTATUS 

IF MISSING DDSNAMES IN CORE 
01 OUTPUT • LARGER' 
01 MESSAGE 

ENDIF 

OUTPUT 'RESTART 

COMPLETED' MESSAGE 

CALL DPPSVJRST TO WRITE THE NEW 

DDSTATUS RECORD 



FIGURE 3-116.1. DPPSRTCP 

DPPSRTCP - REALTIME COPY 

01 READ THE PRIMARY JFCB 

01 IF JFCB READ WAS SUCCESSFUL 

02 OBTAIN THE PRIMARY DSCB 
02 OPEN PRIMARY DCB 

02 OPEN SECONDARY DCB 

02 CALL DPPSCP2B TO COPY PRIMARY TO BACKUP 

02 CALL DPPSDSCB TO UPDATE THIS BACKUP DSCB 

02 CLOSE PRIMARY DCB 

02 CLOSE SECONDARY DCB 

01 ENDIF 

01 IF ERROR OCCURRED 

02 SET RETURN CODE 

02 ISSUE ERROR MESSAGE 

01 ELSE 

02 ISSUE COPY COMPLETED MESSAGE 3-119 
01 ENDIF 
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Figure 3-1 17. DPPSSHAR 

•SHARE A DOS' 

GET ACCRESS OF CT LA 

GET ACCRESS OF ECB 

CLFAR THIS SECB 

IF THIS DOS IS LOCKED OUT 

01 WHILE THERE ARE MCRE SECBS 

02 GET NEXT SECB 
01 ENDDO 

01 ADD THE SECB TO THE CHAIN 
01 WAIT CN THIS ECB 
ELSE 

01 GET ShARE COUNTER 
01 INCREASE IT BY 1 
01 PUT BACK IN SHARE COUNTER 
ENDIF 



Figure 3-1 18. DPPSSRCH 

• SEARCH A FIXED LENGTH TABLE FOR AN ENTRY WHOSE X 

KEY MATCHES THAT OF AN ARGUMENT N PS ECT=NO 

STRTSRCH 

01 WHILE THERE ARE MORE ENTRIES IN ThE TABLE 

EXITIF ENTRY FCUND 
01 SET RETURN REGISTER TO CORRESPONDING ENTRIES ADDRESS 

ORELSE 

01 GET NEXT ENTRY IN THE TABLE 
ENDLOCP 

01 SET RETURN REGISTER TO ZERC, INDICATES NO ENTRY FOUND 
ENDSRCH 



Figure 3-119. DPPSST1 

• STOW FOR A DCS' 

INPUTS = $l*A(UCCB>» $0=A<PA«AM), $i3^AISAVE AREA ) 
IF THIS IS TYPE-Ct THEN 
01 SET TYPE INDICATOR £ RECC *PL IMENT BOTH INPUTS 

ELSE 

01 IF THIS IS TYPE-D, THEN 

02 SET TYPE INDICATOR £ RECCMPL IMENT IN P ARAM 

01 ELSE 

02 IF THIS IS TYPE-R* THEN 

03 SET TYPE INDICATOR I RECC FPL IMENT A(UCCB) 
02 ENCIF 

01 END I F 
END IF 

CALL THE INTERNAL BLDL » FIND, STOW ROUTINE 

( 
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Figure 3-120. DPPSSWCH 

•SWITCH PR I MARY— TO-BACKUP FOR A DOS • 

INPUTS =<A(CTLA)) 

IF BACKUP IS IN-SERVICE, THEN 

01 IF THERE IS AN IOA, THEN 

02 " IF THE CCSCCB WAS OPENED FOR 

03 INPUT, THEN 
03 RECREATE 

03 THE I/O ON THE 

03 BACKUP DC B 

02 ENDIF 

02 SWITCH ADDRESSES OF PPIMARY C BACKUP CCBS IN THE IOA 

01 END IF 

01 SWITCH CDNAMES IN THE CTLA 
01 TAKE THE BACKUP CUT-OF-SERVICE 
01 SET RETURN CODE TC ZERO 
ELSE 

01 SET RETURN CODE TO 4 
ENDIF 

Figure 3-121. DPPSTBOS 

•TAKE A BACKUP GUT-OF-SERV ICE • 



INPUTS = ( A ( CTLA ) ) 

SEE IF BACKUP IS ALREADY OUT-OF-SERVICE 

IF BACKUP IS OUT-OF-SERVICE 
01 SET RETURN CODE TO INDICATE BACKUP- ALREADY OUT-OF-SERV ICE 



ELSE 



01 
01 
01 
01 
01 
01 
01 
01 
02 
02 
02 
C3 
03 
03 
02 
01 
01 



SET OUT-OF-SERVICE FLAG FOR BACKUP DCB 



SEE IF THERE IS A DDSIOA 



IF THERE IS AN IOA 



SEE IF BACKUP OCB IS OPEN 



IF BACKUP DCB IS OPEN 

ASYNCHRONOUSLY CLOSE THE BACKUP DCB 



ENDIF 
END IF 

UPCATE CDSTATUS RECORD 
ENDIF 
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Figure 3-122. DPPSUNLK 

• UNLCCK A CDS • 
GET ADDRESS OF CTLA 
IF CALLED FROM ETXR * THEN 
01 GET A (CTLA ) 
END IF 

GET CURRENT LECB 
GET NEXT LECB 
STORE IN CTLA 
IF THERE IS ANOTHER LECB 
01 POST THAT LECB 
ELSE 

Oi GET 1ST SECB, IF ANY 
01 ZERO SHARE COUNTER 

01 WHILE THERE ARE MORE SECBS 

02 POST THAT SECB 

02 INCREMENT SHARE COUNTER 

02 GET NEXT SECB, IF ANY 

01 ENDDC 

01 SET SECB WORD (WITH SHARE COUNTER) 
END IF 

IF DOS HCLD IS OFF, THEN 
01 SRTOS UNLOCK THAT DDS LOCK/SHARE CHAIN 
END IF 

IF CALLED FROM ETXR, THEN 
01 GET A(TCBC) DIRECTLY 
ELSE 

01 CALL DPPSADDX TO GET A(TCBC) 

END IF 
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Figure 3-123. DPPSUNSH 



•UNSHARE A DOS' 
GET ACCRESS OF CTLA 
IF CALLED F POM ETXRt THEN 
01 GET A (CTLA) 
ENDIF 

GET SHARE CCUNTER 

DECREMENT SHARE COUNTER BY I 

IF NG MORE SECBS 

IF LOCK IS WAITING 
01 SET LCCK FLAG ON 
01 POST THE WAITING LOCK 

ENDIF 

IF DOS FOLD IS CFF, THEN 
01 SRTOS UNLOCK THAT DOS LOCK/SHARE CHAIN 
END IF 

IF CALLED FROM ETXR»THEN 
01 GET A(TCBC) DIRECTLY 
ELSE 

01 CALL CPPSADDX TO GET A(TCBC) 
ENDIF 
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Figure 3-124. DPPSWRST 



GET DOSCTLHD 

IF MODE IS NOT READONLY, THEN 
01 SET MAX BLOCKS I ZE FOR DOSTATUS 
01 OPEN DOSTATUS 

01 IF OPEN WENT 0. , ThEN 

02 ESTABLISH SYNAD ADCRESS 

02 CALCULATE ODSTATUS RECORD LENGTH 

02 WRITE THE CTLA'S 

02 CHECK THE WRITE 

02 CLOSE DOSTATUS 

02 OUTPUT MESSAGE INDICATING 

02 GCCD UPCATE 

02 ZERO THE RETURN CODE 

01 ELSE 

02 OUTPUT DDSTATUS NOT OPEN MESSAGE 
02 SET RETURN CODE TO 8 

01 END IF 
ELSE 

01 OUTPUT RE0CCNLY MESSAGE 
01 SET RETURN CCDE TC 4 
END IF 

RETURN TO THE USER 

ENTER SYNAD PROCESSING HERE 

CLOSE DDSTATUS 

OUTPUT SYNAC MESSAGE 

SET RETURN CCDE TC 16 

RETURN TO THE USER 
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Figure 3-125. DPPSXTCB 



FUNCTION: TO SEE IF THE INPUT ( CURRENT ) TCB HAS A ODSXTCBC, AND 
IF YES, RETURN ITS ADDRESS IN $1, OR IF NCTt 
ALLOCATE, INITIALIZE, AND CHAIN A NEW DDSXTCBC AND 
RETURN ITS ADDRESS IN $1. ALL DDSXTCBC'S *RE CHAINED 
OFF THE SCVT. 

INPUTS : PTR TO ( 0 OR INPUT TCB), IF 0 , GET CURREN TCB FROM THE 
CVT-TCB-SCVT PATH. 

OUTPLTS: $1 WILL CONTAIN THE ACDRESS OF THE DDSXTCBC FOR THE 
INPUT TASK 

•LOCATE/ALLOCATE A CDSXTCBC FOR AN INPUT TASK* 
IF 

01 THE TCBX IS NCT INPUT, THEN GET THAT ADDRESS VIA CVT-JSTCB 
END IF 

IF SRTCS JOB STEP »TFEN 
01 GET MTCBXJ INSTEAD OF TCB 
ENDIF 
STRTSRCH 

01 WHILE THERE ARE MORE TCBC'S 
01 GET NEXT TCBC 
BGNWHILE 

EXIT1F FOUND DDSXTCBC FOR INPUT TASK 

ORELSE 

ENDLOOP 

01 GET CORE FOR A NEW TCBC AND CHAIN IT TO THE OTHERS 
ENDSRCH 
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Figure 3-126. DPPTCBGT 

OPPTCfiGT - TYPE i SVC ROUTINE FOR CCNTPOL BLOCK GET * 

IF THIS IS A CBGET REQUEST 

01 CALC # OF BLKS NEEDED - LNTH/32 

01 GET LAST USED PSC8 

01 * PSCB^PROTECTED STORAGE CTRL BLOCK 

01 SET STOP IND FOR CIRCULAR CHAIN 

01 STRTSRCF SEARCH PSCB CHAIN TILL STOPIND 

01 EXITIF STOP WHEN PSCB WITH ENUF CORE FOUND 

02 IF U FREE NE # AVAIL-A PSCB MUST BE 

03 * CREATEO 

03 CALC WHERE TO PUT NEW PSCB 

03 PUT PSCBID IN NEW PSCB 

03 ADD NEW PSCB TC CIRCULAR CHAIN 

02 END IF 

02 COMPLIMENT THE ELOCK COUNT 

02 PUT COMPLIMENTED COUNT IN BLOCK 

02 PUT GOTTEN CORE ADDR IN REG 1 

02 TURN OFF STOP IND 

02 UPDATE LAST USED PTR 

01 ORELSE 

02 GET ADOR OF NEXT PSCB 
02 CHECK FOR STOP IND 

01 ENDLOOP 

02 SET NC COPE AVAIL RET CODE 
01 ENDSRCH 

01 IF CBGET CORE WAS AVAILABLE 

02 CLEAR GOTTEN CORE TO ZEROS 
02 RETURN 

01 ENDIF 

ELSE 

01 CHECK ADDR FOR VALIDITY 

01 IF A PSCB - A VALID ADDRESS 

02 * WAS PASSED TO BE FREED 
02 COMPLIMENT THE FREE COUNT 

02 DEALLOCATE BY RESTORING FREE CNT 

02 GET NEXT PSCB 

02 IF IT HAS FREE CLOCKS 

03 ACD THEM TO CURRENT PSCB 

03 REMOVE OTHER PSCB FROM CHAIN 

02 END IF 

02 GET PREVIOUS PSCB 

02 IF IT HAS FREE BLOCKS 

03 ADD CURRENT FREE TO PREV FREE BLKS 
03 REMOVE THIS PSCB FRCM PSCB CHAIN 
02 ENDIF 

02 RESET LAST USED PTR 

01 ELSE 

02 SET INVALID ADDR RETURN CODE 
01 END IF 

END IF 
RETURN 
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Figure 3-127. DPPTCSVC 

OPPTCSVC - TYPE 1 SVC ROUTINE FOR CHAIN * 
IF 

ENOIF 

VALIDITY CHECK INPUT ADDRESSES : MUST BE WITHIN PARTITION(S) * 

* CHECK BYPASSED IF PROGRAM * 

* ISSUEING SVC HAS PK=C OR * 

* SUPVR STATE * 



Figure 3-128 (1 of 3). DPPTDLMP 

********************************************************** *********** 



* * 

* MODULE NAME - DPPTDLMP * 

* * 

* OESCRIPTIVE NAME - TASK MANAGEMENT * DYNAMIC LOAO MODULE PURGE * 

* * 



******* 4** + + 4** ****************************************************** 

GET INPUT PARAMETERS 

IF NO TOME SPECIFIED DR #5192 

01 TAKE DEFAULT OF 2 SECS DR #5192 
ELSE DP #5192 



01 IF NO TIME WAS SPECIFIED 

02 TAKE DEFAULT CF 2 SECCNDS 
01 END IF 

END IF DR #5192 
IF TIME VALUE GT MAX 

01 ISSUE MESSAGE DPP019 

ELSE - IF TIME VALUE VALID 

01 IF NC MODULES WERE PASSED DR #5192 

02 ISSUE MESSAGE 22 DR #5192 

01 ELSE OR #5192 

02 UNTIL SEARCH ENTIRE LIST DR #5192 

03 IF VAIID MODULE NAME ADCR DR #5192 

04 IF THIS IS FIRST VALID ADDR DR #5192 
04 END IF DR #5192 

03 END IF DR #5192 

02 ENDCO R DR #5192 

02 IF NO VALID ADDRS DR #5192 

02 ELSE DR #5192 

03 DEFINE LOCK 

03 LOCK OTHER DLMP-REQUE STS OUT 

03 ISSUE MESSAGE DPP020 

03 SET ECB COUNT TO ONE 

03 ISSUE STIMER 

03 GET INDEPENDENT TASK CHAIN ORIGIN 
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Figure 3-128 (2 of 3). DPPTDLMP 



03 DO 0PTDLMP1 - TCBX-LCB ISER SCAN 

03 GET DEPENDENT TASK CHAIN ORIGIN 

03 CO DPTDLMPl - TCBX-LCB USER SCAN 

03 GET T MCT-LC B CHAIN ORIGIN 

03 WHILE MCRE LCB'S ARE CHAINED 

04 UNTIL ALL MODULE NAPES EXAMINED 
C5 IF NAME ECUAL TO LCBEPNAM 

C6 SET FLAG MODULE PURGE REQUESTED 

05 ENDIF 

04 ENODC UNTIL BXLE 

03 BGNWHILE 

04 GET ADDR OF NEXT LC8 IN CHAIN 
03 ENDDO WHILE LCB 

03 TURN OFF STIMER FLAG 

03 WHILE ECB COUNT DOES NOT GO TC ZERO 

04 WAIT FOR X EVENTS OUT OF LIST 

04 IF STIMER EXPIREO 

05 SET STIMER FLAG 

05 CAUSE EXIT OF 8CT-L00P 

04 ENDIF STIMER 

03 BGNWHILE 

04 INCR NUMBER OF EVENTS TO WAIT FOR 
03 ENDDO WHILE BCT 

03 IF ALL POSTS RECEIVED IN TIME 

04 CANCEL THE CUTSTANDING STIMER 
03 ENDIF 

03 GET INDEPENDENT TASK CHAIN ORIGIN 

03 DO DPTDLMP2 - TCBX-LCB PURGE SCAN 

03 GET DEPENDENT TASK CHAIN ORIGIN 

03 DO DPTDLMP2 - TCBX-LCB PURGE SCAN 

03 TURN CFF INTERNAL DELETE FLAG 

03 GET T MCT-LC B CHAIN ORIGIN 

C3 WHILE MORE LCB'S ARE CHAINED 

04 IF STIMER HAS NOT EXPIRED 

05 IF PURGE REQUESTEC 

06 SET FLAG DELETE REQ BY SMCN IN LCB 
06 SET INTERNAL DELETE FLAG 

05 ENDIF 

04 ELSE - IF STIMER HAS EXPIRED 

05 TURN OFF PURGE FLAG IN THE LCB 
04 ENDIF STIMER EXPIRED 

03 BGNWHILE 

04 GET ADDR OF NEXT LCB IN CHAIN 
03 ENDDO 

03 IF STIMER HAS NOT EXPIRED 

04 IF INTERNAL DELETE FLAG SET 

05 CLEAR THE ECB 

05 SET FLAG DELETE REG BY SMON IN TMCT 

05 POST DPPTSMON FOR DELETE SERVICE 

04 ENDIF 



3-128 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-128 (3 of 3). DPPTDLMP 



04 IF ANY ECB HAS SET UP 

05 WAIT CN THE EC B LIST 
04 ENDIF 

03 END IF STIMER EXPIRED 

03 GET INDEPENDENT TASK CHAIN ORIGIN 

03 DO DPTDLMP3 - TCBX POST SCAN 

03 GET OEPENDENT TASK CHAIN ORIGIN 

03 DO DPTDLMP3 - TCBX POST SCAN 

03 IF STIMER EXPIRED 

04 GET ADDR OF FIRST ECB 

04 UNTIL ALL ECB'S EXAMINED 

05 IF ECB ViAS NOT POSTED 

06 IF MODULE NAME PRESENT 

07 ISSUE MESSAGE DPP021 
07 CLEAR OUT MODULE NAME 
06 ENDIF 

05 ENDIF ECB NOT POSTED 

04 ENDDG UNTIL BXLE 

04 LOAD MSG # FOR PURGE ABANDONED 

03 ELSE - IF STIMER HAD NOT EXPIRED 

04 LOAD MSG # FOR PURGE COMPLETE 
03 ENDIF STIMER EXPIRED 

03 ISSUE MESSAGE 

03 UNLOCK - ViE ARE THROUGH 

03 RELEASE THE LOCK DEFINITION 

02 END IF TIME VALID 



01 ENOIF NO V*IIC MCDULE NAMES DR #5192 

ENDIF INVALID PARM LIST - NC NAMES SUPPLIED DR #5192 

RETURN 

COPY DPTDLMP1 - TCBX-LCB USER SCAN 
COPY DPTDLMP2 - TCBX-LCB PURGE SCAN 
COPY CPTDLMP3 - TCBX POST SCAN 
COPY DPTDLHP4 - STIMER EXIT ROUTINE 
COPY DPTDLMP5 - ASYNC DELETE ROUTINE 



3-129 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-129. DPPTDSVC 

********************************************************************* 

* * 

* MODULE NAME - DPPTDSVC * 

* * 

* DESCRIPTIVE NAME - TASK MANAGEMENT * DPATCH TYPE 1 SVC ROUTINE * 

* * 
******* ************************************************************** 

LOAD DPATCH TYPE CODE 
LGAC ACCR CF TC EXNAME FIELD 
COPY DPTDSVC1 - VALIDITY CHECK 
IF RETURN CODE LOW 

01 IF DPI FLAG IS SET 

02 SET RC FOR TASK BEING REMOVED 

01 ELSE 

02 IF THIS WAS DPATCH=I 

03 SET FLAGS DPI 4- DPU IN TCBX 
03 GET AEEND CODE 

03 GET ADOR OF ABTERM FRCM CVT 

03 ABTERM TFE CP ATCFED TASK 

02 ELSE 

03 IF DPW FLAG I S SET 

04 SET RC FOR ALREADY DPATCHED^W 
03 ENDIF DPW 

03 IF DPU FLAG IS SET 

04 SET RC FOR ALREADY CPATCHED=U 
03 ENDIF CPU 

03 IF RETURN CODE LOW 

04 IF THIS WAS DPATCH=U 

05 SET DPU FLAG 

04 ELSE 

05 IF THIS WAS DPATCH=W 

06 SET DPW FLAG 

05 ELSE 

06 IF THIS WAS DPATCH=C 

07 IF TASK DORMANT FLAG SET 

08 SET DPC FLAG 

07 ELSE 

08 SET RC TASK NOT DORMANT 
07 ENDIF TASK DORMANT 

06 ELSE 

07 SET RC INVALID INPUT PARMS 
06 END IF CPATCH C 

05 ENDIF DPATCH W 

04 END I F CPATCH U 

04 IF RETURN CCDE LOW AND 

04 IF NO DPPTSMON REQ PENDING 

05 IF DPPTPMCN NOT POSTED 

06 POST DPPTPMON 
05 END I F POSTBIT 

04 END I F RC LOW AND NO SMON REQ 

03 ENDIF RC LOW 

02 END I F DPATCH I 

01 ENDIF DPI SET 

END I F RC ZERO 

RETURN 

COPY DPTPSVC2 - ADDRESS CHECK 
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Figure 3-130 (1 of 3). DPPTETXR 

**** ******* ******** 4* ****** ********** ********** ********************** 

* * 

* MODULE NAME - DPPTETXR * 

* * 

* DESCRIPTIVE NAME - TASK MANAGEMENT ♦ ENC-OF-TASK-E X I T ROUTINE * 

* * 

********************************************************************* 

LOAD ADDR OF TCB WE'RE RUNNING UNDER 
IF IT'S NOT JOBSTEP = SMCN' S TCE 
01 ISSUE ABEND USER CODE 64 
END IF 

GET XCVT ADCR FROM DPPTSMON'S TCBX 
GET ACDR OF FIRST LCCK CONTROL BLOCK 
WHILE MORE LOCKCBLK'S ARE CHAINED 

01 IF EXITING TASK HAS CCNTRCL CF THIS RESOURCE 

02 CHANGE THE TCB ADDR TO SMON»S TCB 
02 UNLCCK THE RESOURCE 

Oi END IF 

01 GET ADDR CF NEXT LOCKCBLK ON CHAIN 
ENDDO 

IF THIS PARTITION IS SLAVE PARTN 
01 GET MASTER PARTN XCVT ADDR 
01 GET MASTER PARTN SCVT ADDR 
01 GET ADDR OF FIRST LOCKCBLK ON CHAIN 

01 WHILE MORE LCCKCBLK'S ARE CHAINED 

02 IF EXITING TASK HAS CNTRL CF THIS RESOURCE 

03 CHANGE THE TCB ADDR TO SMON'S TCB 
03 UNLCCK THE RESOURCE 

02 END IF 

02 GET ADDR OF NEXT LOCKCBLK CN CHAIN 

01 ENDDO 
END IF 

IF TCBXDCVT-FIELC WITHIN PARTITION 
01 GET XCVT ACCR FRCM EXITING TASK'S TCBX 

01 IF XCVT ADDRESSES MATCH 

02 IF CURRENT WOE PRESENT 

03 IF CWQ ADCR OUTSIDE PARTITION OR 

03 IF WOE DOES NOT POINT BACK TO TCBX 

04 ISSUE MESSAGE DPP010 
04 CLEAR WQE ADDR 

03 ELSE - CURRENT WQE ADCR VALID 

04 LOAC ADCR CF LCB FRCM WQE 
03 END IF 

02 ENDIF CURRENT WCE 

02 IF TCB CCMPLETICN CODE FIELC NZERO 

03 * TASK TERMINATED ABNORMALLY 

03 IF IT WAS MSG OUTPUT TASK 

04 ISSUE WTO MSG DPPOll 
03 END IF MSG OUTPUT TASK 
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Figure 3-130 (2 of 3). DPPTETXR 



03 IF CURRENT WQ E PRESENT 

04 MOVE EP-NAME INTO MSG TEXT 

03 ELSE 

04 CLEAR MSG TEXT AREA WITh BLANKS 
03 ENDIF CURRENT WQE 

03 ISSUE MESSAGE DPP012 

02 ELSE - TCB CCMPLETICN CODE FIELD ZERO 

03 IF EXIT NOT CAUSED BY DPPTPMCN 

04 ISSUE MESSAGE DPP018 
03 ENDIF 

02 ENDIF CCMPL CODE 

02 IF EXIT NOT CAUSEO BY DPPTPMCN 

03 IF CURRENT WCE PRESENT 

04 IF MCDULE WAS LOADED BY ABEND ING TASK 

05 * IT WILL BE DELETED BY 

05 * TASK TERMINATION OF CS/VS 

05 SET LCB UNRESOLVED 

04 END IF 

04 GET CCMPLETICN CODE FRCM TCB 

04 SET EC B CC FOR ABNCRMAL TERMINATION 

04 STORE ECB CCMPLETICN CODE INTO WQE 

04 IF WQE ABENDED FLAG ZERO 

05 * THIS WQE DID NOT CAUSE ABEND BEFORE 
05 SET FLAG WQE ABENCED 

05 GET CLEANUP WORK QUEUE ORIGIN 

05 WHILE MORE WQE'S ARE CHAINED 

06 KEEP ADDR OF THIS WQE 

05 BGNWHILE 

06 GET ADDR OF NEXT WQE 
05 ENODO 

05 CHAIN OUR WQE TO END OF CLEANUP-WQ 

05 CLEAR CHAIN WORD IN OUR WQE 

04 ELSE - WQE CAUSED ABEND BEFORE 

05 EXEC WQE-DELETE SVC ROUTINE 
04 ENDIF WGE ABENDED 

03 END I F CURRENT WQE 

03 RESET WQ ACTIVE FLAG IN TCBX 

03 SET FLAGS TCB ♦ CHAP REQUIRED 

03 CLEAR SMON CHAIN WORD IN TCBX 

03 GET TMCTSMON CHAIN CRIGIN 

03 fcH I LE MORE TCBX'S ARE CHAINED 

04 GET ADDR OF NEXT TCBX ON CHAIN 
03 ENDDO 

03 CHAIN TCBX TG DPPTSMON'S REQUEST CHAIN 

03 CLEAR ACDR OF DEAD TCB FRCM TCBX 

03 CLEAR POSTBIT 

03 POST DPPTSMCN FOR SERVICE 

02 ELSE - EXIT WAS CAUSED BY DPPTPMON 

03 CBFREE THE TCBX 

02 ENDIF PMON CAUSED EXIT 
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Figure 3-130 (3 of 3). DPPTETXR 

02 CLEAR REG 15 

01 ELSE - XCVT ACCR DON* T HATCH 

02 * CANNOT TRUST TCBX 
02 LCAD REG 15 NZEPO 
01 END IF XCVT AODR MATCH 

ELSE - TCBXDCVT FIELD OUTSIDE PARTITION 
01 LOAC REG 15 NZERO 
END IF 

IF REG 15 NZERO - BAD TCBX ADDRESS 
01 ISSUE MESSAGE DPP013 
END IF 

DETACH CEAO TCB 
RETURN 

Figure 3-131. DPPTGWFW 

DPPTGWFW ~ BRANCH SUBROUTINE FOR GETW A/FREEWA * 

ISSUE A GET WA SVC 

IF RETURN CODE IS PLUS 

RETURN TO CALLER 

ELSE 

IF FREEMAIN SERVICES REQUIRED 
FREE THE EXTRA GETW A CORE 
ZERO RETURN CODE 
RETURN TO CALLER 
ELSE 

GET ACCRESS OF GFMB TO BE EXPANOED 
GET LENGTH REQUIRED FOR GETMAIN 

GET ADDITIONAL KEY 0 STORAGE FOR SIZE OF GETWA REQUIRED 

GET CONTROL BLOCK STCRAGE 

IF CBGET CORE NQT AVAILABLE 

FREE THE STORAGE GOTTEN FOR GETWA 

FREE THE SAVE AREA 

SET RETURN C0DE=12 

RETURN TO CALLER 

ELSE 

PUT GETWA LOW ADDRESS IN THE GFCB 
PUT GETWA HI ADDRESS IN THE GFCB 
POINT NEW GFCB TO ITS GFMB 
POINT GFCB TO FIRST GFBE 
PUT INIT # OF BLCCKS IN GFCB 
PUT INIT FREE COUNT IN GFCB 
UPDATE TOTAL # FREE BLKS IN GFMB 
ADD NEW GFCB TO CHAIN OFF TMCT 
ADD GFCB TO GFMB CHAIN 

RETURN TO EP (DPPTGWFW) TO RETRY GETWA 

END IF 

END I F 

ENDIF 

ENDIF 
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Figure 3-132 (1 of 2). DPPTIMPS 

DPPTIMPS - CUMP/NO CUMP FACILITY IMP INTERFACE 

DEFINE A RESOURCE FCR LOCK 
LOCK RESOURCE 

IF NO SYSTEM DUMP CCNTROL BLCCK ,THEN 
01 GETMAIN FOR DUMP CNTL BLOCK 
01 ENTER SUPSTATE 

01 SAVE A(DUMP CNTL BLOCK ) IN SCVT 
01 EXIT FROM SUPSTATE 
END I F 

IF PAR APS WERE PASSED, THEN 



01 GET CPT I ON PAR AM AODRESS 

01 IF OPTION P ASSEC t THEN 

02 MCVE IN REGUESTEO OPTION 

02 UNTIL ALL OPTIONS CHECKED, DO 

03 BLMP TO NEXT VALID OPTION 
02 ENDDC 

02 IF NOT NORMAL CPT ION, THEN 

03 SET ERROR MESSAGE 

02 ELSE 

03 MCVE OPTIONS INTO DEFAULT 
02 END IF 

01 END IF 

01 IF VALID OPT OR DEFAULT S EL , THEN 

02 IF LOAD MODULES, THEN 

03 OLC AND SAVE NUM LOAD MODULES 

03 UNTIL ALL LOAD MODULES PROCESSED, DO 

04 IF VALID LM ADDR, THEN 

05 MOVE NAME INTO WORK AREA 

05 IF INVALID LM NAME, THEN 

06 ISSUE ERROR MESSAGE 

05 ELSE 

06 SAVE NAME LENGTH 

06 WHILE NOT END OF CHAIN, AND 

06 WHILE NAME LOW, DO 

07 TNCR DUMP CNTL BLOCK PTR 

06 ENDDO 

06 IF NOT END OF CHAIN, AND 

06 IF NAME FCUND,THEN 

07 RESET FLGS 

06 ELSE 

07 GET NEW DUMP CNTL BLOCK 

07 CHAIN IN NEW CUMP CNTL BLCCK 

06 END IF 

05 END I F 

04 END IF 

03 ENDDO 

02 END I F 

Oi END I F 



END I F 
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IF VALID OPT ICNtTHEN 

01 IF OEFAULT CHANGED* THEN 

02 RESET OEFAULT FLGS 

02 ZERO THE CHAIN PC INTER FROM SYSBLOCK 

02 WHILE NOT END OF CHAIN* DO 

03 FREEMAIN DUMP CNTL BLCCK 
02 END DO 

02 ISSUE MESSAGE 

01 ELSE 

02 ISSUE MESSAGE 
01 ENDIF 

ELSE 

01 ISSUE MESSAGE 
ENDIF 

UNLOCK RESOURCE 
RETURN 
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Figure 3-133 (1 of 2). DPPTPMON 

******* ** ******************************** ****** ********************** 

* MODULE NAME - DPPTPMON * 

* * 

* DESCRIPTIVE NAME - TASK MANAGEMENT * PATCH MONITOR ROUTINE * 

********************************************************************* 

WAIT FOR THE TCBX ADDR TO BE FILLED IN BY 

* THE MOTHER TASK IDPPIMT OR DPPTSMCN) 
IF NO RESOURCE TABLE PRESENT 

01 GET VIRT STORAGE FOR REST BL AND WCRKARE A 

Oi CLEAR WCRKARE A PLUS RESOURCE TABLE 

01 STORE RESOURCE TABLE ADDR INTO TCBX 
ELSE 

Oi GET ADDR CF WORK AREA 
END IF NO RESOURCE TABLE 

IF STAE TO BE ISSUED PRF#166 
ENDIF PRF#166 

UNTIL TASK TERM INATN REQUIREC 

01 IF THIS TASK ATTACHED BY DPPINIT 

02 WAIT FOR FIRST PATCH 
01 END I F 

01 MAKE IT LCCK LIKE ATTACHED BY DPPINIT 

01 UNTIL ANY DPATCH DO 

02 WHILE WCE'S CHAINED TO TCBXWQ AND 

02 WHILE NO DPATCH=U 

03 TOP WQE BECOMES THE CURRENT 
03 CECHAIN TOP WCE 

03 IF CURRENT QUEUE LENGTH NOT ZERO 

04 DECREMENT CURRENT QUEUE LENGTH 
03 ENDIF CCL NZERO 

03 DO DPTPM0N3 - LOAD USER«S ROUTINE 

03 DO DPTPM0N4 - EXEC LSER'S PROGRAM 

03 DO 0PTFMCN5 - PERFORM WOE-CLEANUP 

02 BGNWHILE 

03 ViHILE WCE'S CHAINED TO TCBXCUWQ 

04 TOP WQE BECCMES CURRENT 
04 DECHAIN TOP WQE 

04 IF DOS WAS INVOKED 

05 EXEC DOS CLEANUP ROUTINE 
04 ENDIF 

04 DO DPTPMGN5 ~ PERFORM WQE CLEANUP 

03 ENDDO WHILE TCBXCUWQ NZERO 

02 IF QP TCBX THEN 

°3 DO DPTP SELECT WQ FROM QH 

02 ENDDO 

02 ENDDO WHILE TCBX WQ AND NO DPATCH U 
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Figure 3-133 (2 of 2). DPPTPMON 



02 IF NO OPATCH CF ANY KIND 

03 CLEAR CWQ POINTER 

03 CLEAR POSTBIT BEFORE VIA IT 

03 SET FLAG TASK DCRMANT 

03 WAIT FOR NEXT PATCH, CPATCH OR REPATCH 

03 TURN OFF TASK DORMANT FLAG 

02 ENDIF 

Oi ENDDO UNTIL ANY OPATCH 

01 SET FLAG TASK IS BEING REMOVED 

01 IF DPATCH WORK QUEUE IS NCT EMPTY 

02 DPATCH WQE BECCfES THE CURRENT 
02 CLEAR DWC POINTER 

02 DO DPTPM0N3 - LCAD USER'S ROUTINE 

02 DO DPTPM0N4 - EXEC USER'S PROGRAM 

02 DO DPTPMCN5 - PERFORM WGE-CLE ANUP 

01 ENDIF 

01 CLEAR CWQ POINTER 

01 COPY DPTPMCNl - TCBX-CLEANUP AFTER CPATCH 



ENDDO UNTIL TASK TERMINATION REQ 
FREEMAIN WORK AREA AND RESOURCE T BL 
CLEAR RESOURCE TABLE ADDR FROM TCBX 
ISSUE SVC EXIT 

COPY DPTPM0N2 - HI LEVEL LANG INTERFACE 
COPY DPTPM0N3 - USER ROUTINE LOAO 
COPY DPTPM0N4 - USER ROUTINE EXEC 
COPY DPTPM0N5 - WQE-CLEANUP 

COPY DPTPM0N6 - QP/QH INTERFACE 
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Figure 3-134 (1 of 2). DPPTPSVC 

* ******** ********************************* *********** 

* * 

* MODULE NAME - DPPTPSVC * 

* * 

* DESCRIPTIVE NAME - TASK MANAGEMENT * PATCH TYPE 1 SVC ROUTINE * 

* * 
************ *************************************** ****************** 

LOAD ADDR OF PROBLEM PARM LIST 
L CAD ACCR OF SUPERVISOR PAR M LIST 
COPY DPTPSVC1 - VALIDITY CHECK 
IF INPUTS ARE VALID 

01 IF TC8X WAS SPECIFIED 

02 IF GIVEN NAME SAME AS IN TCBX 

03 DO DPTPSVC3 - BUILD WQE AND LCB 

02 ELSE 

03 SET RC FOR INVALID TCBX ADDRESS 

03 ZERO TCBX = ADCR TO CAUSE CHAIN SRCH 

02 END IF GIVEN NAME SAME 

01 END IF TCBX SPECIFIED 

01 IF NC TCBX ADDRESS SPECIFIEO 

02 IF TCBXNAME SPECIFIED < INDEP TASK) 

03 UNTIL F I ND-LOCP COUNTER ZERO 

04 DECREMENT LCOP COUNT 

C4 RESET TCBXNAME NCT FCUND FLAG 

04 GET ORIGIN CF INDEP TASK CHAIN 

04 STRTSRCH WHILE MORE TCBX" S CHND 

04 EXITIF TCBXNAME FCUND 

05 DO DPTPSVC3 - BUILD WQE AND LCB 
05 TURN OFF FIND FLAG 

05 SET LOOP CTR ZERC - CAUSE EXIT 

04 ORELSE 

05 GET NEXT TCBX IN CHAIN 
04 ENDLCCP - NCT FOUND 

C5 SET TCBXNAME NOT FCUND FLAG 

04 ENDS RCH 

04 IF FIND WAS SPECIFIED 

05 SEE IF OTHER PTN IS STILL ACTIVE 

05 IF 

06 TURN. OFF FIND FLAG 

05 ELSE 

06 SWITCH PARTITIONS 
C5 END I F 

04 END IF 

03 ENDDO UNTIL FIND-LOOP 

03 IF TCBXNAME NCT FOUND FLAG SET 

04 DO DPTPSVC4 - BUILD TCBX 

04 IF RETURN CCDE LOW 

05 CHAIN TO INDEP TASK CHAIN 
04 END IF 
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03 END IF NCT FOUND ON CHAIN 

02 ELSE - NO TCBXNAME SPEC (DEPENDENT) 

03 DO DPTPSVC4 - BUILD TCBX 

03 IF RETURN CCDE LOW 

04 SET DPATCH W FLAG TO CAUSE 

04 * OPPTPMON TO DELETE THE TASK AFTER ONE EXEC 

04 CHAIN TO OEPENOANT TASK CHAIN 

03 ENDIF 

02 END IF TCBXNAME SPEC 

01 ENDIF TCBX NOT SPEC 

END IF INPUTS VALID 

IF INDEPENDENT TASK AND 

IF RETURN CODE LE 8 
01 TELL USER THE TCBX— ADDRESS IN REG 1 

ELSE 

01 CLEAR REG 1 
END IF 
RETURN 



COPY DPTPSVC2 - ADDRESS CHECK 
COPY DPTPSVC3 - BUILD WQE AND LCB 
COPY DPTPSVC4 - BUILD TCBX 
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Figure 3-135. DPPTPWQE 

BGNSEG DPPTPWQE - PURGE WORK CUEUE ROUTINE 



01 VERIFY INPUT PARAMETER ACORESSES 

01 IF £ NY ARE INVALID 

02 SET RETURN CODE 

01 ELSE 

02 IF TASKNAME IS ZERO 

03 USE CURRENT TASK'S TCBX 

02 ELSE 

03 SEARCH FOR TCBX OF SPECIFIED TASK NAPE 

02 END I F 

02 IF CPATCF IN PROGRESS FOR TASK 

03 SET RETURN CCDE 

02 ELSE 

03 IF TASK IS DORMINANT 

04 SET RETURN CODE 

03 ELSE 

04 IF CURRENT WQ IS CNE CF THE WQ'S TO BE DELETED 

05 FLAG TO BE PURGED 
04 ENDIF 

04 IF DPATCM WQ IS CNE OF THE WQ«S TO BE OELETED 

05 REMOVE WQ 

05 CMAIN CN CLEANUP WQ 

04 ENDIF 

04 UNTIL ALL WQ'S ON WQ CHAIN HAVE BEEN PROCESSED 

05 IF WQ IS CNE OF THE VkQ'S TO BE DELETED 

06 REMOVE WQ 

06 CHAIN CN CLEANUP WQ 

05 ENDIF 

04 ENDDO 

04 IF FREE SPECIFIED ON PURGEWQ 

05 SET LENGTH AND ADDRESS IN LAST WQ TO BE PURGED 
04 ENDIF 

03 ENDIF 

02 ENDIF 

01 ENDIF 



ENDSEG DPPTPWQE 
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FIGURE 3-135.1. DPPTQIMP 

DP PTQIMP PROGRAM TC PRCCES S CS CCMMANCS E NTEREC LF£OUGF_IJ*f 
GET MA I N W C F K SPACE 

IF PATCH IC IS 04 

IF PRCBL LEN IS 12 OR 16 

HOVE USER SUPPLIEC PARAM ETE RS TC _WORK_ SPACE 

SET MASK BITS TC SELECT TC EX REOJESTEC "BY FIRST PARAMETER 
_SET_MASK BITS TO CHANGE FLAGS AS REQUE STED 6V 2ND PARAMETER 
IF TH I R C P A R AM E T E P E NT ERE C AS • PUR G E • C R OM ITT ED 

IF NG ERRC RS DET ECTE C 

DISABLE SYSTEM TC PREVENT ERCKEN CHAINS 

WHI LE TCBXKEXT ylS tNZERC PU_N ENT_IRE TCBX CHAIN 

IF TCBX CF TYPE SELECTEC 

CHANGE FLAG BITS ACCCRCING TC MASKS 

SAVE TCBX A DDR IN WCRK SPACE 

END I F „_ 

ENDCC 

ENABLE SY STEM 

IF SELECTEC TCBX FOLND 

_LN T IL A L L _S A VE C^ T C B X_ AC C F rS P R CCESS EC 

IF PURGE WAS ENTEREC " 

DI SABLE SYSTEM . 

PURGE WORK STACKED THIS TCEX 

ENABLE. _ 

END IF 

if.jcpt1c_n was ncnsec cp f el , 

"post Tasks that can frTcess wcfk 

END IF 

FCRMAT flag bits fcp message 

OUTPUT MESSAGE 862 TC RE FC FT STATUS _ 
IF PARAMETER 2 WAS XREF 

OUTPUT MESSAGE 863 TC PEFCPT CCNNECTICNS 

END IF " " " ~~ 

E NDDC 

ELSE SELECTEC TCEX NCT FOUND 

OUTPUT MJESSAGE 864 _ _ 

ENCIF 

ELSE ERRO_RS_IN_INPUT _ _ ___ 

OUTPUT MESSAGE 86^ IDENTIFYING PARAMETER IN ERROR 

_E N D I F 

ELSE 3RC PARAMETER IN ERPOP 
J3yTPUT_MES_SAGE_ 864 IDE N T IF YI NG_ PARAMETER I IS ERPCR 

ENC I F "" "" ~'~ " " " " ~" 

ELSE PRCBL LENGTH B AC 

"OUTPUT M E S S AG E 864 ST A TING PR OB L LEN IS BAD '" " ~ 

E NDIF _ 

ELSE PATCH IC BAC 

OUTPUT MESSAGE 864 STATING PATCH IC IS BAD _ 

ENCIF ~ "" " "" " " 

FREE WOR K SPACE ANC EXIT 
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Figure 3-136. DPPTRGWA 



DPPTRGWA - GET WA CCNTROL BLCCK TRANSFER ROUTINE * 
CLEAR RETURN CODE REGISTER 
STRTSRCH FIND GFCB OWNING CORE 
EXITIF A DDR GE LOW FOR THIS GFCB 
EXITIF AND LT HI 

VALIDITY CHECK INPUT ADDRESS - ENSURE IT IS ON A BLOCK BOUNDARY 
IF ADDRESS IS CN BLOCK BOUNDARY 
GET GFBE ADDR 

IF THIS BLOCK IS ALLOCATED 

DECHAIN THE GFBE FROM IT«S CURRENT 
IF BLOCK IS TO BE CHAINED ON PC CHAIN 
ELSE 

DEFAULT TO AP CHAIN ORIGIN 
IF AT REOUEST 

GET AT CHAIN CRIGIN 
ENDIF 
END IF 

ADD GFBE TO NEW CHAIN 
ELSE 

SET INVALIC ADDRESS RET CODE 
ENDIF 
ELSE 

LOAD INVALID GETWA ADDRESS RET CODE 
END IF 
ENDLOOP 

LOAD INVALID GETWA ADDRESS RET CODE 
ENDSRCH 

RETURN TO CALLER 
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Figure 3-137. DPPTRSVC 



********************************************************************* 

* * 

* MODULE E NAME - DPPTRSVC * 

* * 

* DESCRIPTIVF NA^ - TASK MANAGEMENT * REPATCH TYPE 2 SVC ROUTINE * 

* * 
***********4*******«************************************ ************* 

LOAD REPATCH TYPE CCDE 
LOAC ACOR OF REPATCH PAPM LIST 
CLEAR RETURN CODE REGISTER 
USE DPPTSMON'S TCRX 

IF RFPATCH TYPE CODE IS NOT 0 NOR 1 
01 SET RC EOR INVALID TYPE 
ELSE 

01 IF PEPL ADCR INVALID 

02 SET RC FCR INVALID RE PL ACDR 

01 ELSE 

02 CHECK ADDRESS OF RE PL 

02 IF NOT WITHIN EITHER PARTITION 

03 SET RC FOR INVALID RE PL 

02 F LSF 

03 IF PR TY REF NCT • RE PATCH • 

04 SET RC FOR INVALID REPL 

03 ELSF 

04 IF REPATCH TYPE-=EXEC SPECIFIED 

05 LCAD PROBL ACDR FOR PATCH 
05 LCAD SUPL ADDR FOR PATCH 
05 FXECUTE PATCH SVC RTN 

04 ENDIF TYPE EXEC 

04 IF REPATCH TY PE= PURG E SPECIFIED 

05 IF FREE SPEC GN ORIGINAL PATCH 

05 IF FLAG NCT SET BY PT IME 

06 FRFEMAIN USER' S AREA 
05 ENDIF 

C4 ENDIF TYPE PURGE 

C4 GET ADDR OF REPL 

04 G FT RFPL CHAIN ORIGIN 

04 STRTSRCH UHILE MORE REPL'S CHAINEC 

04 EXITIF THIS IS THF CNE ViE SEARCH FOR 

05 DEC HA IN REPL F PC. ^ CHAIN 
04 ORELSF 

04 ENDLOOP - NCT FOUND ON CHAIN 

04 ENDSRCH 

04 CB-FREE THE REPL 

03 ENDIF 

0 2 ENDIF 

01 END IF 

ENDIF TYPE VALID 
RETURN 

COPY DPTPSVC2 - ADDRESS CHECK 
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Figure 3-138 (1 of 2). DPPTSMON 

** ***************^********** ************************* }***^ 

* * 

* MODULE NAME - DPPTSMON * 

* * 

* DESCRIPTIVE NAME - TASK MANAGEMENT * SYSTEM MONITOR ROUTINE * 

* * 
***** ********************** *** 4**4*4******************** ******** ***** 

WHILE NEVER ENDING LOOP 

01 WHILE MCRE TCBX'S ON REQUEST CHAIN 

02 OEC HA IN FIRST TCBX 

02 COPY DPTSMONI - LOAD CCMMCN MODULES 

02 IF A NEW TCBX REQUIRES A TCB 

03 IF CHAP REQUEST FLAG SET 

04 GET PRTY FRCM TCBX 

03 ELSE 

04 USE ZERO PRTY 
C3 END I F 

03 CALCULATE PRIORITY FOB ATTACH 

03 ATTACH A NEW DPPTPMCN 

03 STORE ADDR OF NEW TCB INTO TCBX 

03 IF CHAP REQUEST FLAG IS ZERO 

04 SET SAME PCSTCQDE AS DPPINIT 

03 ELSE 

04 ZERO HI ORDER BYTE 
03 END I F 

03 CLFAR REQUEST FLAGS 

03 POST TCBX ADDR INTO NEW TCB 

02 EN 0 I F TCB REG 

02 IF CHAP REQUEST FLAG SET 

03 CALCULATE PRIORITY FOP CHAP 

03 CFAP CPPTFMCN UP TO PFOPER PRTY 

03 CLEAR CHAP REQUEST FLAG 

03 POST DPPTPMON 

02 END IF CHAP REQ 

01 ENDDC WHILE TMCTSMON NZERC 

01 IF DELETE PROCESSING REQUIRED 

02 GFT T MCT-LC B CHAIN ORIGIN 

02 WHILE MORE LCB»S ON TMCT-LCB CHAIN 

03 IF DELETE REQ FLAG SET 

04 IF SCMECNE IS USING THIS MODULE DRJJ5192 
04 IF ANO IT IT NCT DLMP DR#5i52 

04 ELSE DR#5036 

05 DEC HA I N THE LCB 

05 IF LOAD MCDULE PURGE REQUESTED 

06 SET PURGE FLAG IN TMCT 
05 END I F 
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Figure 3-138 (2 of 2). DPPTSMON 



05 CLEAR EP ADDRESS 

C5 DELETE THE MODULE 

05 C B— FREE THE LCB 

05 START AT TOP OF CHAIN AGAIN 

04 END IF DR#5036 

03 ENDIF DEL REQ FLAG 

02 BGNWHILE 

03 GET NEXT LCB IN TMCT-LCB CHAIN 
02 ENDDO WHILE T^CTLCBA NZERO 

02 CLEAR DELETE RECUEST FLAG 

02 IF PURGE FLAG SET IN TMCT 

03 TURN OFF PURGE FLAG 
03 PCST CPPTDLMP 

02 ENDIF 



01 ENDIF DEL PROCESSING 

BGNWHILE 
01 WAIT FOR POST BY 

01 * OPPTPSVCt DPPTWQDL OR DPPTPMON 
01 CLEAR PCSTBIT FRCP EC8 
ENDDO WHILE ENDLESS LOOP 
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Figure 3-139 (1 of 2). DPPTSTAE 

GET A I CVT ) 

GET A ( TCB POINTER ) 

GET A ( TCB ) 

IF NOT STEP ABENCTFEN 
01 IF NOT USER ABENO ,THEN 



02 GET A(TCBX) 

02 IF TCBX EXISTS, THEN 

03 GET A(XCVT) 

03 GET SAVE/ WORK AREA 

03 CLEAR WCRK AREA 

03 GET A(SCVT) 

03 DEFINE LOCK RESOURCE 

03 LCCK RESOURCE 

03 DO f INCRB-FIND RB FOR ABENDING MODULE 

03 CO FINDLCB - FIND MODULE NAME IN LCB 

03 DO FINDMOD - F I NO MCDULE CN DMP CHAIN 

03 CO STAEBLCK ~ PROCESS STAE BLOCK 

03 UNLOCK 

03 RELEASE RESOURCE 

02 ELSE 

03 SET NO TCBX FLAG 

03 TAKE ERROR EXIT ALL 

02 END IF 



01 END IF 
ENDIF 
RETURN 

BGNSEG FINDRB - FIND RB FOR ABENDING MODULE 
01 SKIP PAST PRB FOR STAE 
01 UNTIL END CF RB CHAIN, OR 

01 UNTIL ENO RB PROCESS ING* DO 

02 IF IT IS A PRB, THEN 

03 IF NOT DPPTFHCN, THN 

04 GET A ( ENTRY POINT NAME 
04 SAVE A ( RB ) IN WORK AREA 

04 TURN CN END RB PROCESSING FLAG 

03 ENDIF 

02 END IF 

02 GET A (NEXT RB ) 

01 ENODO 

ENDSEG FINDRB END OF SEGMENT TO SCAN RB CHAIN FOR NAME 

BGNSEG FINOLCB - FIND MODULE NAWE IN LCB 
01 GET A(TCBXI 
01 GET A(WQE) 

01 IF WORK QUEUE EXISTS, THEN 

02 GET A (LCB ) 

02 IF LCB EXISTS, THEN 

03 GET A ( ENTRY POINT NAME 

02 ELSE 

03 SET NO LCB FLAG 

03 TAKE ERROR EXIT - ALL 

02 END IF 
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Figure 3-139 (2 of 2). DPPTSTAE 

01 ELSE 

02 SET NO WOE FLAG 

02 TAKE ERROR EXIT - ALL 

01 END IF 

ENDSEG FINCLC8 -END OF SEGMENT TO F IND EP NAME IN LCB 
BGNSEG 

01 IF CHAIN EXISTS, THEN 

02 GET A{ NAM E IN PRB) 

02 IF NOT PRB NAME, THEN 

03 GET A ( NAME IN LCB) 
02 END IF 

02 UNTIL MCCULE FOUND, OR 

02 UNTIL END OF CHAIN, DO 

03 GET NAME LENGTH 

03 IF MODULE NAME FOUND, THEN 

04 SET MODULE FOUND BIT 
03 ENDIF 

02 ENDDO 

02 IF MODULE NCT FCUND,T HEN 

03 GET A ( SYSTEM STAE BLOCK) 
02 END IF 

01 ELSE 

02 SET NO SCVTCCHN FOUND BIT 
02 TAKE ERRCR EXIT ALL 

01 ENDIF 

ENDSEG FINDMOD - END OF ROUTINE TO FIND MODULE STAE BLOCK 
BGNSEG STAEBLCK - PROCESS STAE BLOCK 
01 IF NCT MODULE STAE BLK, AND 

01 IF ONEDUMP REQUESTED, THEN 

02 DC BLDSTABK - BUILD STAE BLCCK 
01 ENDIF 

01 IF ONE DUMP REQUESTED, THEN 

02 IF MAX DUMPS LE NUM DUMPS, THEN 

03 INDICATE NODUMP 
02 ENDIF 

01 FNDIF 

01 ADD 1 TC NUM DUMPS 
01 ENTER SUPSTATE 

01 PUT STAE ABEND FLGS IN TCBCMPF 
01 EXIT FROM SUPSTATE 

ENDSEG STAEBLCK - END STAE BLOCK PROCESSING 

BGNSEG BLDSTABK - BUILD STAE BLOCK 
01 GETMAIN FOR NEW DMP CNTL BLOCK 
01 FILL IN NEW STAE ELOCK 
01 GET A( START OF ChAIN) 
01 UNTIL END OF CHAIN, OR 

01 UNTIL CLD NAME BIGGER, DO 

02 SAVE A(PREVIOUS STAE BLCCK) 
01 ENDDO 

01 PUT NEXT POINTER IN NEW STAE BLOCK 
01 PUT A ( NEW BLOCK) IN PREV STAE BLOCK 

ENDSEG BLDSTABK - END SEGMENT TO BUILD NEW STAE BLOCK 
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Figure 3-140 (1 of 2). DPPTWQDL 

********************************* ******** ** ************************** 



* * 

* MODULE NAME - DPPTWCOL * 

* * 

* DESCRIPTIVE NAME - TASK MANAGEMENT * WORK-QUEUE-ELEMENT— DELETE * 

* TYPE 2 SVC ROUTINE * 

* * 



********************************************************************* 

LCAC ADDR OF WORK- QUEUE— ELEMENT 
IF ECB ADDR WAS SPEC WITH PATCH AND 
IF THIS WQE FELL CUT OF QUEUE ANC 
IF REPATCH GPTICN WAS SPECIFIED 
Oi CB-GET FOR RE PATCH LIST REPL 

01 IF CB-GET PASSED ZERO RETURN CODE 

02 CHAIN REPL TO TMCTREPL CHAIN 
02 STORE IT'S ADDR INTO ITSELF 
02 MOVE XCVT ACDR 

02 MOVE TC8XNAME 

02 MCVE EP NAME 

02 SET PRTY REF NAME TO " REPATCH* 

02 MOVE PATCH FLAGS 

02 MOVE QUEUE LENGTH 

02 MCVE PRTY VALUE (ABSOLUTE HERE) 

02 MOVE ECB ADDRESS 

02 MOVE FREE LENGTH 

02 MOVE FREE ADCRESS 

02 IF PROBL WAS MOVED INTO WQE 

03 MCVE PROBL INTO REPL 

03 GET ADCR OF PROBL IN REPL 

02 ELSE 

03 GET SUPPLIED ADDR CF PROBL 
02 ENDIF 

02 STORE ACDR CF PROBL 

02 LOAD REPL ACDR - FOR POST INTO ECB 

02 INSERT ECB CC FOR REPL BUILT 

01 ELSE - NCNZERO RETURN CODE FRCM CB-GET 

02 INSERT ECB CC FCR NO CB-GET STORAGE 
Oi END IF REPL GET 

ELSE - NOT REPATCH CASE 
01 IF FREE SPEC WITH PATCH AND 

01 IF FLAG NOT SET BY PTIME 

02 IF GETWA AREA 

02 ELSE 

03 FREEMA IN USER'S AREA 
02 ENDIF 

01 END IF 

ENDIF REPATCH CASE 
IF ECB ADDR NZEPC 
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Figure 3-140 (2 of 2). DPPTWQDL 

01 POST LSERS ECB 
END I F 

DECREMENT REQUEST CCUNT IN TCBX-LCB 
IF EP-DELETE WAS SPECIFIED 

01 IF AN ASSOC LCB IS CN TMCT CHAIN 

02 DECREMENT USE CCUNT IN TMCT-LCB 

02 IF USE CCUNT IN TMCT-LCB IS ZERO 

03 INDICATE THIS LCB TO BE DELETED 
03 REQUEST OELETE PROCESSING BY SMON 

03 IF DPPTSMCN NCT POSTEC 

04 POST DPPTSMCN 
03 END I F POSTBIT 
02 FNDIF USECNT 

01 END I F TMCTLCB 

01 IF REQUEST CCUNT IN TCBX-LCB IS ZERC 

02 GET LCB ADDR TC SEARCH FOR 
02 GET TCBX-LCB CRIGIN 

02 STRTSRCH WHILE *ORE LCB'S CHAINED 

02 EXITIF THIS IS THE LCB WE LCCK FOR 

03 DECHAIN LCB FROM TMCT-LCB CHAIN 
03 CB-FREE ThE LCB 

02 CPELSE 

03 KEEP ADDR OF THIS LCB 

03 GET NEXT LCB IN TMCT-LCB CHAIN 

02 ENDLOCP 
02 ENDSRCH 

01 ELSE - REQUEST CCUNT IS NCT ZERO 

02 GET TCBX-LCB AOCR 
02 SET LCB UNRESOLVED 

01 END I F REQEST COUNT ZERC 
ENDIF DELETE SPEC 
Cfi-FREE THE WQ-EL EMENT 
RETURN 
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Figure 3-141 (1 of 2). DPPTWSVC 

DPPTWSVC - TYPE 1 SVC ROUTINE FOP GETWA/FREEWA * 
GET THE POINTER TO THE TCBX 
IF NO TCBX 



01 GET JOB STEP TCB ADDRESS 

01 IF NCN-SRTOS TASK AND JOB 

02 PL; T INVAL1C ACCRFSS IN PEG 1 
02 RETURN TC USER 

01 END IF 

01 I F THIS I S A GET WA 

02 CHANGE TI TYPE=PC RFCUEST 
01 END I F 



END I F 

GET THE POINTER TO THE XCVT 
GET THE POINTER TC THE CVT 

GET POINTER TO THE TASK MANAGEMENT CONTROL TABLE 
IF THIS IS A GE TWA REQUEST 



01 IF THE REQUEST IS NONZERO AND NOT NEGATIVE 

02 STRTSRCH LOOP THRU TABLE LOCKING FOR SIZE 

02 EXITIF REQ SIZ IT SIZ FCR GFPB CHAIN 

03 CCPY BLOCK-GET ROUTINE (DPTWSVC1) 

02 ORELSE 

03 UPDATE TO NEXT GFMB ENTRY 

02 FNOLOOP 

03 SET INVALID SIZE RETURN CODE 
03 PUT INVALID ADD R IN REG 1 

02 ENCSRCH 

01 ELSE 

02 SET RETURN CODE = 4 

02 PUT INVALIC ADDRESS IN PEG I 

01 END I F 



ELSE 



01 FRFEWA REQUEST $l=ADR TO FREE 

01 STRTSRCH FIND THE GFCB CWNS 

02 * THIS CORE 

01 EXITIF ADCR TO BE FREEC GE LCW FOR THIS 

01 EXITIF * GFCB AND LT HI 

02 ENSURE THAT THE ADDRESS PASSED FALLS CN A 8L0CK BOUNCARY FOR 
02 * THIS GFCB 

02 IF ADDR TO BE FREED IS CN A BLOCK 

03 * BOUNCARY FINO ITS GFBE ANO 
03 * DECHAIN IT 

03 IF THE GFCB IS ALLOCATED - CEALLOCATE 

04 * IT AND INCREMENT FREE COUNT 

04 IF NOT INITIAL ALL CCAT ICN OF GETWA 

05 IF ALL BLCCKS IN GFCfi ARE FREE 

06 TURN CN ALL FREE FLAG 

06 IF GFCB NOT LAST ON CHAIN 
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Figure 3-141 (2 of 2). DPPTWSVC 



07 MOVE GFCB TO END OF CHAIN 

07 UNTIL 

08 IF 

09 UNTIL FIND END OF CHAIN 

09 ENODO 
08 ELSE 
08 END IF 

07 ENDDC 
06 END IF 

05 ENOIF 
04 ENDIF 

04 IF FREE CNT GT INITIAL ALLOCATION 

05 IF NOT INITIAL ALLOCATED STORAGE 

06 IF ALL BLOCKS APE FREE 

07 IF GFCB CAN BE FREED 

08 REMOVE GFCB FRO* GFMB AND TMCT CHAINS 
08 FREE THE CONTROL BLOCK STORAGE 

07 ENDIF 
06 END IF 

05 END IF 

04 ENDIF 

03 ELSE 

04 SET RETURN CODE » 4 
03 ENDIF 

02 ELSE 

03 BLK NOT ON BLK BNDRY OR ATTEMPT TO FREE UNALLOCATED BLK 
03 SET RETURN CODE * 4 

02 END IF 

Oi ORELSE 

01 ENDLOOP 

02 SET RETURN CODE =» 4 
01 ENCSRCH 



END IF 
RETURN 

COPY BRANCH ENTRY CODE - DPTWSVC3 
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Figure 3-142. DPPUMSG 

DPPUMSG MAIN SEGMENT * SYSTEM MESSAGES FINAL PHASE PROCESSOR * 
01 GET INPUT DEFMSG PARAMETERS 

01 IF DELETE OPTICN THEN 

02 COPY 0PPUMSG1 

01 ELSE * IF ACC TEST OR REPLACE OPTION * 

02 COPY DPPUMSG2 
Oi END IF 

ENDSEGPENT OPPUMSG 



Figure 3-143. DPPUMSG 1 



DPPUMSG1 INCLUDED SEGMENT * MESSAGE FINAL PHASE DELETE ROUTINE * 

01 DO UNTIL ALL SPECIFIED MESSAGES ARE DELETED 

02 PRINT MESSAGE TG BE DELETED 

02 EXECUTE MACRO TO DELETE MESSAGE 

01 ENDDO 

ENDSEGMENT DPPUMSG1 



Figure 3-144. DPPUMSG2 

DPPUMSG2 INCLUDEO SEGMENT * MESSAGE FINAL PHASE ADD TEST REPLACE 
01 ROUTINE * 

DO UNTIL ALL SPECIFIED MESSAGES ARE ADDED TESTED OR REPLACED 
01 FIND MESSAGE IN MESSAGE DATA SET 

01 IF ADD CPTICN AND MESSAGE FCUNO THEN 

02 PRINT ERROR MESSAGE 

01 ELSE 

02 PRINT INPUTTED MESSAGE 

02 IF MESSAGE FOUND IN MESSAGE CATA SET THEN 

03 PRINT OLD MESSAGE 
02 ENCIF 

02 IF OPTION IS ADD OR REPLACE THEN 

03 EXECUTE WRITE MACRC TO ADD MESSAGE TO MESSAGE DATA SET 

03 EXECUTE STOW MACRO TO ADD MSG NUMBER TO MSG D,S. DIRECTORY 

02 ENCIF 
01 ENDIF 
ENDDC 
ENDSEGMENT DPPUMSG2 
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Figure 3-145 (1 of 7). DPPXDBAS 

DPPXC6AS - CAT A BASE FINAL PHASE PROCESSOR 
SAVE REGS 

GET SAVE/WORK AREA 
CLEAR BUFFER 
LOAD DPPXCBCA 
LCAD DPPXCBLG 

PRINT DATA EASE FPP ENTEREO MSG 
OPEN POS CCB(OUTPUT) 
IF OPEN, THEN 



01 IF NC BLKSI Z , TH EN 

02 GET MAX BLKSI ZE FOR OEVIDE 
01 ELSE 

01 END IF 

Oi GET MA IN INPUT/CUTPUT BUFFERS 

01 CLEAR GET MAI N AREA 

01 IF ARRAYS GENERAT ED tTHEN 

02 OPEN PDS READ DCB ( INPUT ) 

02 DO GETMNDIR - GET NEW DIRECTCRY BUFFER 

02 IF ADD CPT ION , THEN 

03 CO ACC ARRAY - ADD NEW ARRAYS 

02 ELSE 

03 IF DELETE OPTION, THEN 

04 TURN ON DELETE MODE BIT 

04 DC DELARRAY - DELETE ARRAYS 

03 ELSE 

04 IF REPLACE CPT ICN, THEN 

05 TURN CN REPL MODE BIT 

05 DC DELARRAY - DELETE OLD ARRAYS 

05 DO ADC ARRAY - ADD NEW ARRAYS 

04 ELSE 

05 IF TEST OPTION, THEN 

06 TURN ON TEST MOCE BIT 

06 TURN CN REPLACE MODE BIT 

06 DO DELARRAY - DELETE OLD ARRAYS 

06 CO ADDARRAY - ACO NEW ARRAYS 

05 ELSE 

06 PRINT, INVALID CPTION - TEST ASSUMED, MSG 
06 TURN CN TEST MOCE BIT 

06 TURN CN REPLACE MOOE BIT 

06 DO DELARRAY - DELETE OLD ARRAYS 

06 DO ADCARRAY - ACD NEW ARRAYS 

05 END IF 

04 ENDIF 

03 END I F 

02 ENDIF 

02 LINK TO DPPXDBAT 

01 ELSE 

02 PRINT NC ARRAYS DEFINED - NO PROCESSING MSG 
02 TAKE ERROR EXIT - ALL 

01 ENDIF 
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Figure 3-145 (2 of 7). DPPXDBAS 

Oi IF NOT TEST MODE, THEN 



02 OPEN POS READ DCBCUPCAT) 

02 POINT CCB TO 3INIT 

02 OUMMY READ 

02 MOVE IN NUM DA ARYS DR 5203 

02 WRITE NEW 3INIT RECORD 



01 END IF 
ELSE 

01 PRINT UNABLE TO OPEN DATABASE PDS MSG 
01 TAKE ERROR EXIT - ALL 
ENDIF 

ALL - ENTER HERE FR CM ERROR EXIT 

PRINT FPP CCMPLETED MSG 

FREE SAVE/WORK AREA 

RESTORE REGS 0-12 

RETURN 

BGNSEG ADCARRAY - ADD ARRAYS TO DATA BASE 
01 WHILE NOT END OF CB0EF,D0 



02 IF DUMMY BIT IS NOT CN,THEN 

03 IF ARRAY IS BLOCKED, THEN 

04 IF BLKCT IS ZERO, THEN 

05 CALC AND SAVE BLOCK CCUNT 
04 ENDIF 

03 ENDIF 

03 IF LOGABLE ARRAY, THEN 

04 LET DPPXD8LG SET UP LOGGING ARRAY 
03 ENDIF 

03 BLDL CN ARRAY NAME 

03 IF RC=4 ,THEN 

04 IF NOT CA RESIDENT, THEN 

05 DO ADCARPDS - ADD ARRAY TO PDS 

04 ELSE IT IS CA RESIDENT 

05 DO ADCARDDS - ADD ARRAY TO DIRECT DATA SET 
04 END IF 

03 ELSE 

04 IF RC=8, THEN 

05 PRINT BLDL 10 ERROR - RC=8 MSG 

04 ELSE 

05 IF NO DELETES DONE, THEN 

06 SET DUMMY FLAG FCR FCUND ARRAY 
06 PRINT OUP ARRAY NAME MSG 

05 ELSE 

06 IF NCT CA RESIDENT, THEN 

07 DC ADCARPDS - ADD ARRAY TO PDS 

06 ELSE 

07 DO ADDARDDS - ADC ARRAY TO CIRECT CATA SET 
06 END IF 

05 ENDIF 

04 END I F 

03 ENDIF 
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Figure 3-145 (3 of 7). DPPXDBAS 



02 ELSE 

03 IF NO DELETES DCNE ? THEN 

04 PRINT DUMMY BIT SET MSG 
03 ENDIF 

02 END IF 

02 TURN CFF FIRST ICB BIT 

02 TURN OFF FIRST C ATA BIT 

02 INCREMENT TO NEXT ARRAY 



01 ENDCO 

ENDSEG ADDARRAY END ADD ARRAY SEGMENT 

BGNSEG ADDARPDS - ADD ARRAY TO PDS 
01 DO VlR ITEICB - WRITE ICB'S TO PDS 

01 IF ARRAY IS BLOCKED, THEN 

02 DO WRITEBLK - WRITE DATA BLOCKS 

01 ELSE 

02 WRITEDTA - WRITE UNBLOCKED DATA 
01 END IF 

01 DO STOWOIR - STOW DUMMY DIR ENTRY FOR EOF 

ENDSEG ADDARPDS END ADD ARRAY TO PDS SEGMENT 

BGNSEG ADOARDDS - ACO ARRAY TO DIRECT CATA SET 

01 DO WRITEICB - WRITE ICB'S TO PDS 

01 BALR TO DPPXDBD A TO WRITE DA ARRAY 

01 DO WRITEDTA - WRITE DA CCNTPOL RECORD 

01 DO STOWDIR - STCW DUMMY DIR ENTRY FOR EOF 

ENDSEG ACCARCDS END ADD ARRAY TO DIRECT CATA SET 
BGNSEG DELARR - DELETE ARRAY SEGMENT 

01 TURN ON DELETES DCNE BIT 

01 GET NUMBER OF ARRAYS FOR DELETE 

01 IF DELETE MCDE»THEN 

02 DOUBLE TO ALLOW FOR DA LOG ARRAYS 
01 ENDIF 

01 GET MA I N FCR DELETE TABLE 

01 CLEAR ZERO STORAGE 

01 WHILE NOT END OF CBDEF,DO 



02 IF DUMMY BIT NCT SET*THEN 

03 BLDL CN ARRAY NAME 

03 IF RC = 0 t THEN 

04 MOVE ARRAY NAME TO DEL TABLE 
04 MGVE AID TO DEL TABLE 

04 IF REPLACE CPERAT ION, THEN 

05 SAVE OLD UPDATE LEVEL 

04 ELSE 

05 PRINT ARRAY DELETED MSG 
04 END IF 

04 INCP TO NEXT DEL TABLE ENTRY 

03 ELSE 

04 IF RC = 8t THE N 

05 PRINT BLDL I/O ERROR - RC=8 MSG 
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Figure 3-145 (4 of 7). DPPXDBAS 



04 ELSE 

05 PRINT ARRAY NOT FCUND MSG 
04 END IF 

03 END IF 

02 ELSE 

03 PRINT DUMMY BIT SET MSG 
02 END IF 

02 INCREMENT TO NEXT ARRAY 



01 ENDDC 

01 PUT ENDWORD IN DELETE TABLE 

01 SORT DELETE TABLE BY ARR NAME 

ENDSEG DEL ARR AY END DELETE ARRAY SEGMENT 

BGNSEG GETMNDIR - GET NEW DIRECTORY BUFFER 

01 CALC BUFFER SIZE 

01 GET MA I N FOR NEW DIRECTORY BUFFER 

01 CLEAR STORAGE 

ENDSEG GETMNDIR END OF GETMAIN NEW DIRECTORY 

BGNSEG WRITEIECB - WRITE ITEM CONTROL BLKS TO PDS 



01 IF BLOCKED ARRAY, THEN 

02 ICB START - FIRST BLOCK 
02 ICB STOP - FIRST BLOCK 

01 ELSE 

02 ICB RECCRD STOP — ARRAY 
02 ICB RECORD START - ARRAY 
01 END IF 

01 CALC LENGTH OF ICB RECORD 

01 IF LEN GT DS BLKSIZE,THEN 

02 UNTIL LEN LT DS BLKSIZE,DC 

03 IF NOT TEST MODE, THEN 

04 WRITE ICB'S 
03 ENDIF 

03 IF FIRST ICB BIT NOT SET, THEN 

04 TURN ON FIRST ICB BIT 

04 IF NOT TEST MODE » THEN 

05 NOTE ICB TTR 
04 END IF 

04 SAVE ICB TTR 

03 ENDIF 

03 SLETR ACT OS BLKSIZE FPCM LEN 

02 ENDDO 

01 ENDIF 

01 IF NOT TEST MODE , THEN 

02 WRITE REMAINDER GF ICB'S 
01 ENDIF 

01 IF FIRST ICB BIT NOT SET, THEN 

02 TURN ON FIRST ICB BIT 

02 IF NOT TEST MODE, THEN 

03 NCTE ICB TTR 
02 END IF 
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02 SAVE ICB TTR 

01 END IF 

ENDSEG WRITEICB END WRITE ICB«S 

BGNSEG WRITEDTA - WRITE UNBLOCKED CAT A RECORDS 



01 IF DATA L EN GT OS BKSZ , THEN 

02 UNTIL C AT A LEN LE DS BKSZ* DO 

03 IF NOT TEST MCDE,THEN 

04 WRITE OATA TO PDS 
03 END IF 

03 IF FIRST CAT A BIT NOT SET, THEN 

04 TURN ON FIRST DATA BIT 

04 IF NOT TEST MODE, THEN 

05 NOTE OATA TTR 
04 END I F 

Ql4 SAVE DATA TTR 

03 ENDIF 

03 SUBTRACT DS BKSZ FROM DATA LEN 

02 ENDDO 

01 ENDIF 

OL IF NOT TEST MODE, THEN 

02 WRITE REMAINDER OF CAT A 
01 END IF 

01 IF FIRST DATA BIT NOT SET 

02 TURN ON FIRST CAT A BIT 

02 IF NOT TEST MODE, THEN 

03 NOTE C ATA TTR 
02 ENDIF 

02 SAVE CAT A TTR 

01 END IF 



ENDSEG WRITEDTA END WRITE UNBLOCKED DATA 

BGNSEG WRITEBLK - WRITE BLOCKED DATA RECORDS 



01 IF BLKSIZE NE ZEPC , THEN 

02 PICK UP ARRAY BLKSIZE 

01 ELSE 

02 CALC BLCCK SIZE 
01 ENDIF 

01 IF ARR EKSZ GT DS BKSZ, THEN 

02 PRINT ARRAY BLOCK SIZE TRUNCATEC MSG 
01 ENDIF 

01 CLEAR DATA BLCCK BUFFER 

01 IF LOGABLE ARRAY, THEN 

02 MCVE LOG HDR TO OUTPUT EUFFER 
01 ENDIF 

01 UNTIL ALL BLOCKS WRITTEN, DO 

02 CLEAR OUTPUT BUFFER 

02 GET LAST BLCCK NUMBER USED 

02 ADD 1 

02 GET START BLOCK NUMBER 

02 IF NO START BLOCK NUMBER, THEN 

03 USE NEXT AVAILABLE BLOCK NUMB 

02 ENOIF 3-157 
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02 IF ST BKISG GT LAST BKN0,THEN 

03 GET DIFFERENCE 

03 UNTIL DIFFERENCE EO ZERO, DO 

04 DO MVDTABLK - MOVE DATA TO OUTPUT 

03 END DO 

02 END IF 

02 IF DATA SIZE GT BLOCK SIZE, THEN 

03 PRINT DATA TRUNCATED MSG 
02 END IF 

02 MOVE DATA TC BLOCK BUFFER 

02 DC MVDTABLK - MOVE DATA TO OUTPUT 

02 IF NO START BLOCK NUMBER, ThEN 

03 USE NEXT AVAILABLE BLOCK NUMBER 

02 ELSE 

03 IF STRT NUM LE LAST NUM f THEN 

04 SET TEST MODE 

04 PRINT BLK NUMBER ERROR MSG 

04 USE NEXT ABAILABLE BLOCK NUMBER 

03 END I F 

02 END IF 

02 IF NC STCP BLOCK NUMBER 

03 USE STRT OR NEXT AVAILABLE BLK NUM 
02 ENDIF 

02 IF BLOCK IS REP EAT ED, TF EN 

03 GET REPEAT COUNT 

03 UNTIL REPEAT CNT EC ZERC , THEN 

04 DO MVDTABLK - MOVE DATA TO OUTPUT 
03 ENDDO 

02 END IF 

02 INCR TO NEXT BLOCK CNTL BLOCK 

Oi ENDDO 

01 CLEAR OUTPUT BUFFER 

01 IF BKCT GT LAST BKNO,THEN 

02 GET DIFFERENCE 

02 UNTIL DIFFERENCE EQ ZERO, DO 

03 CO MVDTABLK - MOVE CATA BLK TO OUTPUT 
02 ENDDO 

01 ELSE 

02 IF BKCT LT LAST BKNO,THEN 

03 PRINT ARRAY BLOCK CCUNT EXCEEDEC MSG 
02 ENDIF 

01 ENDIF 

01 IF ANY CATA REMA I NI NG , THE N 

02 DO WRDTABLK - WRITE DATA BLOCK 
01 ENDIF 



ENDSEG WRITEBLK END WRITE BLOCKED DATA RECORDS 

BGNSEG MVDTABLK - MCVE DATA BLOCKS TO OUTPUT 

.( 
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01 UNTIL PART Blk BIT IS ZEROtDO 

02 IF PART BLOCK BIT IS ONE* THEN 

03 GET A(UNMCVE0 PART) 

03 GET SIZE OF UNMOVED PART 

02 END IF 

02 GET REMAINING LENGTH IN OUTPUT BUFFER 

02 IF OATA WILL FIT IN OUTPUTt THEN 

03 TURN OFF PART 6 LOCK BIT 

02 ELSE 

03 TURN ON PART BLOCK BIT 
02 END IF 

02 MOVE DATA TO OUTPUT BUFFER 

02 IF BUFFER FULL, THEN 

03 DC WRDTABLK - WRITE CAT A BLK TO OUTPT 
03 CLEAR OUTPUT BUFFER 

02 END IF 

01 ENDDC 

END SEG MVCTABLK END MOVE DATA TO OUTPUT 
BGNSEG WRDTABLK - WRITE A BLOCK OF DATA 

01 IF NOT TEST MODE, THEN 

02 WRITE DATA 
01 END IF 

01 IF FIRST CAT A BIT NOT SET »THEN 

02 TURN ON FIRST CATA BIT 

02 IF NOT TEST MODE, THEN 

03 NCTE CATA TTR 
02 END IF 

02 SAVE TTR 

01 END IF 

ENDSEG WRDTABLK END WRITE DATA BLOCK SEGMENT 
BGNSEG STOWDIR - STOW DIRECTORY ENTRY SEGMENT 

01 IF REPLACE MODE, THEN 

02 IF TEST MODE, THEN 

03 PRINT ARRAY TESTED MSG 

02 ELSE 

03 PRINT ARRAY REPLACED fSG 
02 END IF 

01 ELSE 

02 PRINT ARRAY ADDEC MSG 
01 END IF 

01 WHILE NOT END OF NEW DIR TBL E, DO 

02 IF CUPE NAME, THEN 

03 TURN ON TEST MODE BIT 

03 PRINT CUPE ARRAY NAME MSG 

02 END IF 

01 ENDDO 

01 IF NOT TEST MCDE, THEN 

02 STOW DUMMY DIR ENTRY FOP EOF 
01 END IF 

ENDSEG STOWCIR END D I RECTORT STOW SEGMENT 
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DPPXDBAT - DATABASE FPP SECCND LOAD 
SAVE REGS 

PGINT TO SAVE/WORK AREA 
DO UPD3INIT - UPDATE 3 1 N IT ARRAY 
DO GETMAIC - GETMAIN FOR AIC TABLE 
DO UPDAID - UPDATE AID TABLE 
DO READDIR - READ AND SAVE 01 RECTORY 
DO UPREFRSH - UPDATE 3REFRSH ARRAY 
DO GETMNC ID - GETMAIN FOR NEW SCICS ARRAY 
IF - IF NOT DELETE OPERAT ION , THEN 
01 DO NEWCIDS - BUILC TABLE OF NEW ITEM NAMES 
END I F 

DO UPDC IDS - UPDATE 9C IDS ARRAY 
CLOSE DBINIT 

DO UPDDIR - UPDATE PDS DIRECTORY 
ALL - ENTER HERE FRCM ERROR EXIT 
RESTORE REGS 0-12 
RETURN 

BGNSEG UPC3INIT - UPDATE 21NIT ARRAY SEGMENT 
01 BLDL CN aiNIT ARRAY NAME 

01 IF RC NE ZERO, THEN 

02 BUILD NEW SINIT ARRAY 

02 IF NOT TEST MODE, THEN 

03 WRITE NEW 3INIT ARRAY 
03 SAVE TTR 

02 ENDIF 

02 BUILD DIR ENTRY WITH DUMMY NAME 

02 IF NOT TEST MODE, THEN 

03 STOW OUMMY CIR ENTRY FOR EOF 
02 END IF 

02 SAVE NEW DIR ENTRY IN TABLE 

02 INDICATE NEW PDS 

01 ELSE 

02 UPDATE OLD 3IMT DATA RECORD 
02 GET aiNIT TTR 

02 PCINT DCE TO 3INIT 

02 READ aiMT 

02 CALC NEW TOTAL NUM OF ARRAYS 

01 ENDIF 

01 MOVE SODS ENTRY IN TO NEW DIR TABLE 
01 MVE 3REFRSF ENT IN NEW DIR TBLE 

01 IF NOT NEW PDS , TF EN 

02 INCR DEL COUNT FOR 3CI0S £ 3REFRSH 
01 ENDIF 

01 IF NOT TEST MODE, THEN 

02 STOVi DELETE DUMPY NAME 
01 ENDIF 



( 
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ENOSEG UPDaiMT END OF UPCATE 8INIT SEGMENT 

BGNSEG UPDAIO - UPDATE AID TABLE 
01 SORT NEW DIRECTORY TABLE BY ARRAY NAME 
01 OPEN DIR READ DCB 
01 UNTIL END OF NEW DIR TABLE»D0 



02 UNTIL END OF DIRECTORY, CO 

03 IF 01 REND BIT NOT CNE ,THEN 

04 REAC A DIRECTORY BLOCK 

04 CCUNT SAVE NUMBER OF DIRECTORY BLOCKS 

03 END I F 

03 UNTIL ENC OF DIR BLOCK * AND 

03 UNTIL INCR DIR BIT IS ONE, DO 

04 IF INCR DIR BIT IS CNE f THEN 

05 TURN INCR DIR BIT OFF 
05 INCR TO NEXT DIR ENTRY 
04 END IF 

04 IF NEW CIR LT OLD DIR ENTRY ,THEN 

05 IF ARRAY NOT NUMBERED , THEN 

06 INCR AID COUNT BY I 

05 ELSE 

06 SAVE ARRAY NUMBER AS AID COUNT 
05 ENC IF 

05 PICK UP CLD AID 

05 GET NEW AID 

05 SAVE NEW AID IN AID TABLE 

05 IF LOGABLE ARRAY* THEN 

06 CCUNT LCGABLE ARRAYS 
05 END IF 

05 INCR TO NEXT NEW DIR ENTRY 

04 ELSE 

05 IF NOT 3CIDS ENTRY, AND 

05 IF NOT 3REFRSH ENTRY , THEN 

06 IF OLD DIR IN DEL TAB, THEN 

07 INCR TO NEXT DELET TABLE ENTRY 

06 ELSE 

07 IF NCT NUMBERED ARRAY, ThEN 

08 I NCR AID COUNT BY 1 

07 ELSE 

08 SAVE ARRAY NUMBER AS AID COUNT 
07 END IF 

07 PICK UP OLD AID 

07 GET NEW AID 

07 SAVE NEW AID TO TABLE 

07 IF LOGABLE ARRAY, THEN 

08 COUNT LCGABLE ARRAYS 
07 ENDIF 

06 ENDIF 

05 ENDIF 
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05 TURN ON INCR DIR BIT 

04 END IF 

04 CCUM NEW AND OLD DIP ENTRIES 

03 ENDDO 

03 TURN OFF INCR DIT BIT 

02 ENDDO 

02 TURN ON DIR END BIT 

01 ENDDO 

01 UNTIL END— OF-F I LE CN D I R» DO 

02 READ DIR BLOCK 

02 CCUNT DIR BLOCKS READ 

02 DIREOF - ENTER HERE FROM DIR EODAD ROUTINE 

01 ENDDO 

01 CLOSE DIR DCB 



END SEG UPOAID END OF AID UPDATE SEGMENT 

8GNSEG UPREFRSH - UPDATE REFRSH ARRAY 

01 GETPAIN NEfc REFRESH ARRAY AREA 

01 CLEAR AREA 

01 IF NOT NEW PDStTHEN 



02 OPEN DBINIT2I INPUTI 

02 BLDL CN 2REFRSH 

02 IF RC=0,TFEN 

03 POINT DCB TO CA CNTL RECORD 
03 REAC CA CNTL FOR SREFRSH 

03 UNTIL ALL BLOCKS READ ? DO 

04 IF SEC TRK RD BIT IS NCNE »THEN 

05 GET NUV BLOCKS ON FIRST TRACK 

04 ELSE 

05 GET NUN BLOCKS CN OTHER TRACKS 
04 END IF 

04 UNTIL END OF TRACK * CO 

05 RD REF ARRAY DATA 

05 IF FIRST READ BIT IS ZERO, THEN 

06 MOVE ENTRY ZERO TO NEW TABLE 
06 TURN FIRST READ BIT ON 

06 I NCR TO NEXT TABLE ENTRY 

05 END IF 

05 WHILE NOT END OF BLOCK READ, DO 

06 GET OLD AID 
06 CALC NEW AID 

06 IF NEW AID NE ZERO, THEN 

07 SAVE NEW AID IN TABLE 

07 SAVE REFRSH BLK IN TABLE 

07 INCR TO NEXT TABLE ENTRY 

06 END IF 

06 INCR TO NEXT DATA ENTRY 

05 ENDDO 
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05 INCR TO NEXT RECORD 

05 IF ALL BLKS ON TRK READ IN, THEN 

06 FORCE EXIT FRCM LOOP 
05 ENDIF 

04 ENDDO 

04 TURN ON SECOND TRK RE AC BIT 

04 INCR TO NEXT TRACK 

03 ENDDO 

02 ELSE 

03 DO UPREDIRO - UPDATE REFRSH FROM OLD DIR 
02 END IF 

02 CLOSE DBINIT2 

01 ENDIF 

01 IF NUH LOG AEL E AR NE ZERO, THEN 

02 WHILE NT ED OF NW DIR EN f THEN 

03 IF LOG ABLE ARRAY* T HEN 

04 GET NEW AID 

04 SAVE AID IN REFRSH TABLE 

04 INCR TO NEXT REFRSH TABLE ENTRY 

03 END IF 

03 INCR TO NEXT NEW DIR ENTRY 

02 ENDDO 

01 END I F 

Oi SORT REFRSH TABLE BY AID 

01 WRTE CUMMY ICE REC FOR REF 

01 NOTE TTR 

01 TURN CN WRITE CICS BIT 

01 UNTIL END CF REFRSH TABLE 

02 MCVE RECORD TC WRITE BUFFER 
02 CCUNT NUMEER OF DATA BLCCKS 

02 BALR TC DPPXOBCA TC WRITE DATA 

02 [NCR TO NEXT CAT* RECORD 

01 ENDDO 

01 TURN ON ENO CIO BIT 

01 BALR TO DPPXDBDA TO WRITE END RECORD 

01 TURN CFF WRITE CICS BIT 

01 TURN OFF ENC CIDS BIT 

01 IF NOT TEST MODE, THEN 

02 WRITE CA C NT L FCR 3REF RSH 
02 SAVE DA CN TL RECORD TTR 
01 END I F 

01 BUILD DIR ENTRY WITH DUMMY NAME 

01 IF NOT TEST MODE, THEN 

02 STOW DUMMY CIR ENTRY FCR ECF 
01 ENDIF 



ENDSEG UPREFRSH END UPDATE REFRSH ARRAY SEGMENT 

BGNSEG UPREDIRD - UPDTE REFRSH ARRAY FROM OLD DIR 
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01 IF OLD DIR READ IN, THEN 

02 WHILE NOT END GF DIRECTORY 

03 IF LOGABLE ARRAY, THEN 

04 GET OLD AID 
04 CALC NEW AID 

04 IF NEW AID NE ZERO, THEN 

05 SAVE AID IN REFRSH TABLE 

05 INCR TO NXT REFRSH TABLE ENTRY 

04 END IF 

03 ENDIF 

03 INCR TO NXT DIRECTORY ENTRY 

02 ENCCO 

01 ENCIF 

ENDSEG UPRECIRO END UPDATE REFRSH FROM OLD DIRECTORY 
BGNSEG NEWCIDS - BUILD NEW CIDS SEGMENT 

01 IF A ( NEW CIC AREA I NE ZERO, THEN 

02 WHILE NCT END CF 08DEF,00 

03 IF DUPMY BIT NOT ON, THEN 

04 IF /ARRAY IS BLOCKED, THEN 

05 GET AIICB START) FOR FIRST BLOCK 
05 GET AIICB STOP) FOR FIRST BLOCK 

04 ELSE 

05 GET ACICB START) FOR ARRAY 
05 GET A(ICB STOP) FOR ARRAY 
04 END IF 

04 CALC LENGTH OF MOVE 

04 MOVE ICS'S TO NEW CID TABLE 

04 INCR TO START OF NEXT MCVE 

03 END IF 

03 INCREMENT TO NEXT ARRAY 

02 ENDDO 

02 PUT ENDWORD IN NEW CID TABLE 

02 SORT NEW CIC TABLE BY ARRAY NAME 

01 ENDIF 

ENDS EG NEWCIDS END OF NEW CIOS BUILD 
BGNSEG UPDCIDS - UPCATE aCIDS ARRAY SEGMENT 

01 IF NOT NE to PDS ,THEN 

02 BLDL CN 3C ICS 

02 PCINT DCB TC 3CIDS 

01 END IF 

01 DO UPDCIDLP - UPDATE CIDS LCCP 

01 IF NOT TEST MODE, THEN 

02 WRTE LST OATA RECORD TO PDS 
01 ENDIF 

01 IF NOT FIRST WRITE, THEN 

02 TURN ON FIRST kRITE BIT 
02 IF NOT TEST MODE, THEN 

( 
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03 
02 
02 



NCTE TTR 
END IF 

SAVE CIDS TTR 



01 END IF 

01 INCR C IDS BLK CGUNT 

01 TURN ON WRITE CIDS BIT 

01 TURN OFF END CIDS BIT 

01 BALR TO 0PPXC8D A TO WRITE LAST DATA 

01 TURN ON FNC C ID BIT 

01 BALR TO DPPXOBDA TO WRITE END RECORD 

01 IF NOT TEST MODE, THEN 

02 WRITE CA CNTL RECORD 
02 SAVE C IDS DA CNTL TTR 
01 END I F 

01 BUILD DUMMY DIP ENTRY FOR CIDS 

01 IF NOT TEST MODE * THE N 

02 STOW DUMMY DIR ENTRY FOP EOF 
01 END I F 

01 IF NOT TEST MOOE, THEN 

02 STOW DELETE CUMMY NAME 
01 END IF 

ENDSEG UPDCIDS END UPDATE iCIDS 
BGNSEG UPDCIDLP - CIDS UPDATE LOOP SEGMENT 

01 WHILE NOT END CF OLD CIDS, OR 

01 WHILE NOT END OF NEW CIDS, DO 

02 IF FIRST CID BIT NCT SET, THEN 

03 TURN ON FIRST CID BIT 
03 GET A { END OF EUFFER) 
02 END I F 

02 IF AT END OF BUFFER,THEN 

03 GET A( START OF BUFFER) 

03 IF NOT NEW PDS , THEN 

04 READ OLC CIO RECORD 

03 ELSE 

04 PUT ENDWORD IN READ BUFFER 
03 ENDIF 

02 ENDIF 

02 IF NW CID EN LT OLD CID EN, THEN 

03 NCVE ENTRY TO OUTPUT BUFFER 
03 I NCR TO NXT NEW CID ENTRY 

02 ELSE 

03 MCVE ENTRY TO OUTPUT BUFFER 

03 IF NOT ENDWOR C ,THEN CR#5410 

04 INCR TO NXT OLD CID ENTRY 
03 ENDIF DR#5410 

02 ENDIF 

02 PICK UP OLC AID 

02 CALC NEW AID 
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02 IF NEW AID NE ZERO, THEN 

03 SAVE AID IN NCVED ENTRY 

03 IF ITEM NME NE BLANKS, THEN 

04 IF ITEM NME ID DUP t THEN 

05 PRINT DUP ITEM NAME MSG 
05 SET TEST MODE 

04 END IF 

04 SAVE TO PREV NAME 

04 I NCR TC NXT SLOT IN OUTPUT BUFFER 

03 END I F 

02 END IF 

02 IF END OF OUTPUT BUFFER, THEN 

03 IF NOT TEST MODE, THEN 

04 WRITE OUTPUT BUFFER TO PDS 
03 END I F 

03 IF FIRST ICB BIT NOT SET, THEN 

04 TURN ON FIRST ICB BIT 

04 IF NOT TEST MODE, THEN 

05 NOTE TTR 
04 END IF 

04 SAVE CIDS TTR 

03 ENDIF 

03 TURN CN WRITE CIDS BIT 

03 INCR CICS BLK COUNT 

03 BALR TO DPPXCBDA TO WRITE TO DDS 

02 END I F 



OL ENCCO 

ENDSEG UPDCIDLP END OF CIDS UPDATE LOOP 

BGNSEG GETMAIC - GETMAIN FOR AID TABLE 

01 CALC SIZE OF GETMAIN 

01 GETMAIN AREA FOR AID TABLE 

01 CLEAR GETMAIN AREA 

ENDSEG GETMAID END OF AID TABLE GETMAIN 

BGNSEG GETMNCID - GETMAIN FOR NEW CIO TABLE 



01 IF NCT DELETE MODE 

02 CALC SIZE OF GETMAIN 

02 GETMAIN FOR NEW CID TABLE 

02 CLEAR GETMAIN AREA 

01 ELSE 

02 DUMMY OUT NEW C ID TABLE 
01 END I F 



ENCSEG GETMNCID END OF GETMAIN FOR NEW CIC TABLE 

BGNSEG READDIR - READ PDS DIRECTORY SEGMENT 
01 IF 
01 ENDIF 
01 IF 
01 END IF 

( 
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01 IF NM OIR BLK ND GT NM 0!R BLKStTHEN 

02 PRINT INSUFFICIENT DIRECTORY SPACE MSG 
02 SET TEST MODE 

01 ELSE 

02 GETMAIN FOR DIR INPUT BUFFER 
02 CLEAR BUFFER 

02 GETMAIN FOR DEC B BUFFER 

02 CLEAR BUFFERS 

02 GETMAIN FOR DIR OUTPUT BUFFER 

02 CLEAR BUFFER 

02 OPEN CIR READ DCB( INPUT) 

02 WHILE NOT END CF OUTPUT BUFFERt DO 

03 CHAIN OUTPUT DIR BLOCKS 
02 ENDDO 

02 UNTIL ALL DIR BLKS READ, DO 

03 READ DIR BLOCK 

03 MCVE CIR ENTRIES TO INPUT BUFFER 

03 INCR TO NEXT SPACE 

02 ENDDO 

02 CLOSE DIR READ CCB 

01 END I F 

ENDSEG RE4DCIR END OF DIRECTORY READ SEGMENT 
BGNSEG UPDIR - UPCATE PDS DIRECTORY 

01 IF NOT TEST MODE, THEN 

02 DO UPDDIRLP - UPDATE DIRECTORY LOOP 
02 OPEN DIR CCE(UPCATE) 

02 UNTIL END OF DIR OUTPUT BUFFER , DO 

03 DUMMY READ FOR UPCATE MODE 

03 MOVE DIR BLOCK TO OUTPUT £R EA 

03 IF NOT TEST MODE, THEN 

04 WRITE DIRECTORY BLOCK 
03 END I F 

03 INCR TO NEXT DIR OUTPUT BLOCK 

02 ENDDO 

01 END IF 

01 DO FREETABL - FREEMAIN CONTROL TABLE 

ENDSEG UPDDIR END OF DIRECTORY UPCATE SEGMENT 
BGNSEG UPDDIRLP - DIRECTORY UPDATE LOOP SEG 

01 IF NEW PDS, THEN 

02 DUMMY CUT OLD DIRECTORY 
01 END IF 

01 WHILE NOT END OF OLO DIR, OR 

01 WHILE NCT END OF NEW DIR, DO 

02 IF NEW DIR LT CLD DIR, THEN 

03 MOVE IN NEW CIR ENTRY 
03 INCR TO NEXT ENTRY 

02 ELSE 

03 * MCVE IN OLD DIR ENTRY 
03 INCR TO NEXT ENTRY 

02 END IF 
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02 GET OLD AID 

02 CALC NEW AIO 

02 IF NEW AIC NE ZERO, THEN 

03 INCR DIR COUNTER 

03 SAVE NEW AID IN DIR ENTRY 

03 IF DA ARRAY, THEN 

04 INCR DA ARRAY COUNTER 
03 ENDIF 

03 IF ENTRY IS 3CIDS,THEN 

04 MOVE IN REAL DIR ENTRY 

03 ELSE 

04 IF ENTRY IS 3REFRSH , THEN 

05 MOVE IN REAL DIR ENTRY 
04 END I F 

03 ENDIF 

03 IF NEW 01 R BLOCK NOT FULL, THEN 

04 INCR TO NEXT OUTPUT DIR ENTRY 

03 ELSE 

04 MOVE LAST NAME TO KEY 
04 SET LENGTH 

04 INCR TO A ( NEX T DIR OUTPUT BLOCK) 

04 INCR TO FIRST DIR ENTRY THIS BLOCK 

04 DIR COUNTER TO ZERO 

03 END IF 

02 END IF 

01 ENDDO 

01 MOVE ENDWORD TO LAST NAME 

01 MOVE ENDWORD TO KEY 



ENDSEG UPDDIRLP END DIRECTORY UPDATE LOOP 

BGNSEG FREETABL - TABLE FREEMAIN SEGMENT 



01 FREE CECB BUFFER 

01 FREE DIR INPUT BUFFER 

01 IF ARRAYS WERE DELETED, THEN 

02 FREE DELETE TABLE 
01 END IF 

01 IF NOT DELETE MODE, THEN 

02 FREE NEW CID TABLE 
01 END I F 

01 FREE AIC TABLE 

01 FREE NEW DIRECTORY BUFFER 



ENDSEG FREETABL 



( 
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OPPXDBGP - DATABASE BO AM DATA SET COMPRESS 

SAVE REGS 

GET SAVE/WCPK AREA 

OPEN STSPRINT ANO C B IN IT ( IN PUT ) 

IF OPEN 



01 SET RC=16 

01 IF OPEN 

02 PRINT CCMFRESS STARTED MESSAGE 
02 BLDL FOR SINIT 

02 IF RC=0 f T F EN 

03 DO CNTLTABL - GET CCNTROL TABLE STORAGE 
03 CLOSE DBINIT 

03 DO READDIR - READ DIRECTORY ENTRIES 

03 DO READCNTL - READ A CONTROL RECORDS 

03 DO SORTTABL - SORT CONTROL TABLE 

03 C EN DBINIT (UPDAT ) 

03 DC MO VAR AYS - MOVE ARRAYS 

02 ELSE 

03 IF RC=4 v THEN 

04 PRINT INVALID DATABASE DATA SET MSG 

03 ELSE 

04 PRINT RC=8 FROM BLDL - PERM I/O ERROR MSG 
03 END IF 

02 END IF 

02 PRINT END OF CCPPRESS MSG 

01 ELSE 

02 PRINT UNABLE TO OPEN CBINIT MSG 
01 END IF 



END IF 

CLOSE CBINIT AND SYSPRINT 

FREE CCNTPCL TABLE 

LINK TO DPPXDBIN DR#2343 

FREE SAVE/WORK AREA 

RESTORE REGS 0-12 

RETURN 

BGNSEG CNTLTABL - GET CONTROL T ABLE STORAGE 
01 GET 3 IN IT TTR 
01 POINT TO 3 IN I T 
01 READ IN 3 I N IT 

01 GET NUMBER OF DA ARRAYS IN DATA BASE 

01 IF NUM ARRAYS EO ZERO.THEN 

02 PRINT NO DIRECT ACCESS ARRAYS IN CATABASE MSG 
02 SET RC=4 - NO DA ARRAYS IN DATABASE 

01 END IF 

01 CALC LENGTH OF CNTL TABLE 

01 GETMAIN FOR TABLE 

01 CLEAR CNTL TABLE BUFFER 

ENDSEG CNTLTABL END CNTL TABLE GETMAIN RCUTINE 

BGNSEG REAODIR - READ DIRECTORY BLOCKS 
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01 
01 
02 
02 
02 
03 
04 
03 
04 
03 
03 
04 
05 
05 
05 
05 
04 
03 
02 



OPEN CBINIT FOR 0IR READ 
UNTIL ENO OF DIRECTORY, DO 



RE AC A C IRECT CRY BLOCK 



TURN OFF INCR DIR BIT 



UNTIL END OF DIR BLOCK, CO 



IF INCR CIR BIT IS ONE, THEN 
INCR TO NEXT DIR ENTRY 



ELSE 

TURN ON INCR DIR BIT 



END IF 



IF NOT END OF D I RECTORY, THEN 
IF DA ARRAY, THEN 



GET CNTL RECORD TTR 
GET BLOCK COUNT 
GET BLOCK SIZE 



INCR TG NEXT CNTL TABLE ENTRY 
END IF 



ENDIF 



ENDDO 



01 ENDCO 

01 DIREOF - ENTRY FRCM EODAD ON DIR READ 

01 PUT ENDWORD AT END OF TABLE 

01 SAVE A( ENCWORD IN CNTL TABLE ) 

01 TURN OFF INCR OIR BIT 

01 CLOSE DBINIT FOR CIR READ 

ENDSEG REAOCIR END DIRECTORY REAC SEGMENT 

BGNSEG READCNTL - READ DA CCNTPOL RECORDS 
01 OPEN CBINIT FOR INPUT 

01 UNTIL END CF CNTL TABLE 

02 GET A ( CNTL RECORD TTR) 
02 PCI NT TO CNTL RECORD 
02 READ DA CNTL RECORD 

02 I NCR TO NEXT CNTLT ABLE ENTRY 

01 ENDDO 

01 CLOSE DBINIT2 

ENDSEG READCNTL END READ CNTL RECORD SEGMENT 

BGNSEG SORTTABL - SORT DA CNTL TABLE 
01 GET A( CNTL TABLE) 
01 GET SIZE CF RECCRDS 
01 GET A f LAST CNTL TABLE ENTRY) 
01 SORT THE CCNTROL TABLE BY ADDNAME 

ENDSEG SORTTABL END CF SORT DA CNTL TABLE SEGMENT 

BGNSEG MOVARAY - MOVE DIRECT ACCESS ARRAYS 

01 UNTIL END OF CNTL TABLE, DO 

02 MOVE CURRENT CADD TO PREVIOUS 
02 MOVE DADD TO DCB 

02 OPEN OADCCINPUT) 
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02 UNTIL D ADD NE PREVIOUS, CO 

03 IF OCS OP, THEN 

04 SAVE DOS BLKSIZE 

04 CPEN SYSUTKOUTPUT) 

04 IF OPEN, THEN 

05 DO READWRIT - READ DADD/WRITE TO SYSUTl 
05 SET READ/WRITE BIT 

04 ELSE 

05 PRINT UNABLE TO OPEN SYSUTl MSG 
05 SET RC=8 - UNABLE TO OPEN SYSUTl 
05 TAKE ERROR EXIT - ALL 

04 END IF 

03 ELSE 

04 IF FIRST SKIP FOR 0 ADD, THEN 

05 SET FIRST SKIP BIT 

05 PRINT NO OD STATEMENT FOR DOS MSG 

04 END IF 

03 ENDIF 

03 I NCR TO NEXT CNTL TABLE ENTRY 

02 ENDDO 

02 TURN OFF FIRST SKIP BIT 

02 IF READ/WRITE BIT IS ONE, THEN 

03 DC WRDDSEND - WRITE DCS END RECORD 
03 CLOSE DACD AND SYSUTl 

03 UNTIL 

03 ENDDO 

03 PUT SYSUTl DDNAME BACK IN DCB 

02 END IF 



01 FNDDC 

ENDSEG MOVARAYS END MOVE ARRAY SEGMENT 

BGNSEG PEAD/fcRIT - READ/WRITE CA CATA RECORDS 

01 TURN OFF FIRST CATA BIT 

01 TURN CN FIRST TRK BIT 

01 TURN OFF SECOND TRK BIT 

01 UNTIL NUM WRITES EQ BLKCT ,DC 



02 IF SECCND TRK BIT IS OFF, THEN 

03 GET NU* BLOCKS CN FIRST TRACK 

02 ELSE 

03 GET NUM BLOCKS CN OTHER TRACKS 
02 END I F 

02 UNTIL END CF TRK, DO 

03 READ FROM DADD 

03 INCR TO NEXT RECORD 

03 DO WRITEDOS - WRITE RECORD TO SYSUTl 

03 I NCR RECORD COUNTER 

03 IF END OF ARRAY, THEN 

04 FORCF EXIT FROM LOOP 
03 ENDIF 

02 ENDDO 
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02 TURN CN SECOND TRK READ 

02 I NCR TO NEXT TRACK 

02 SET RECORD NUMBER TO ONE 

01 ENDDO 

01 IF FIRST TRK BIT IS CNE, THEN 

02 SAVE NUM BLOCKS CN TRACK ONE 
02 TURN OFF FIRST TRACK BIT 

01 ELSE 

02 IF SECOND TRK BIT IS ONE* THEN 

03 SAVE NUM BLCCKS ON SECOND TRACK 
03 TURN OFF SECONO TRK BIT 

02 END IF 

01 ENDIF 

01 TURN OFF SECOND TRK READ 

01 MOVE NEW CATA TO CNTL TABLE 



ENDSEG READWRIT END READ/WRITE CNTL SEGMENT 

BGNSEG WRITEDDS - WRITE DIRECT CATA SET 



01 IF END DATA BIT IS ONE, THEN 

02 GET MAX DATA SET BLKSIZE 

01 ELSE 

02 GET ARR*Y BLKSIZE 
01 END IF 

01 UNTIL GOOD CATA WRITE, DO 

02 WRITE A RECCRD 

02 IF RC=4, THEN 

03 UNTIL GC CAPACITY REC WRT E, THEN 

04 WRITE CAPACITY RECORD 

04 IF RC NE 12, THEN 

05 SET GOOD CAPACITY RECORD WRITE BIT 

05 IF END DATA BIT IS ONE, THEN 

06 TURN ON END TRACK BIT 

06 TURN CN GOOD CATA WRITE BIT 

05 ELSE 

06 IF FIRST TRK BIT IS ONE, THEN 
Of IF BLK PER TRK NOT ZERO, THEN 
08 SAVE NUM BLCCKS CN TRACK CNE 
08 TURN OFF FIRST TRACK BIT 

08 TURN ON SECOND TRACK BIT 

07 ENDIF 

06 ELSE 

07 IP SECOND TRK BIT IS ONE, ThEN 

08 SAVE NUM BLOCKS ON SECOND TRACK 
08 TURN OFF SECOND TRACK BIT 

07 ENDIF 
06 ENDIF 
C5 ENDIF 
04 ENDIF 
03 ENDDO 



( 
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03 TURN CFF GOCD CAPACITY WRITE BIT 

02 ELSE 

03 IF RC NE 1 2 ? THEN 

04 TURN CN GCCO DATA WRITE BIT 
04 INCR BLOCK PER TRACK COUNTER 
03 END IF 

02 END I F 

01 FNDDC 

01 TURN OFF GOOD C AT £ WRITE BIT 

01 IF FIRST CAT A BIT IS ZERO, THEN 

02 GET A(MBBCCHhR) 

02 LINK TO CCNVERSICN ROUTINE 

02 SAVE FIRST RECORD TTR 

02 TURN ON FIRST C*TA BIT 

01 END I F 



END SEG WRITECDS END OF DDS CAT A WRITE SEGMENT 

BGNSEG WRITCNTL - WRITE NEW CA CONTROL RECORD 
01 POINT TO DA CNTL RECORD 
01 DUMMY R E AC IN UPDAT MODE 
01 N*VE NEW CA CNTL R EC INTO EUFFER 
01 WRITE NEW DA CNTL RECORD 

ENDSEG WRITCNTL END OF CA CNTL RECORD SEGMENT 

BGNSEG WRDDSEND - WRITE END OF DDS 



01 UNTIL GOOD CAPACITY REC WRTE ,D0 

02 WRITE CAPACITY RECORD 

02 IF RC NOT EC 12, THEN 

03 SET GCOD CAPACITY RECORD WRITE BIT 

03 IF FIRST TRK BIT IS ONE, THEN 

04 SAVE NUM BLCCKS CN FIRST TRACK 
04 TURN OFF FIRST TRK BIT 

04 TURN ON SECCND TRK BIT 

03 ELSE 

04 IF SECOND TRK BIT IS ONE, THEN 

05 SAVE NUM BLOCKS ON SECOND TRACK 
05 TURN OFF SECCND TRK BIT 

04 END I F 

03 END IF 

02 END IF 

01 ENDCC 

01 TURN OFF GCOD CAPACITY REC WRTE BIT 

01 CLEAR BUFFER 

01 SET END OF CATA BIT 

01 UNTIL END CF TRK, CO 

02 DO WR IT EDDS - WRITE DDS DATA 
01 ENDDC 

01 TURN OFF END CF DATA BIT 

01 TURN GFF END CF TRK BIT 

01 TURN OFF FST CATA B IT 



ENDSEG WRDDSEND 
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DPPXOBUfl - CAT A BASE DIRECT ACCESS FPP 
SAVE REGS 

POINT TO SAVE/WORK AREA 
IF NOT-FST-CID BIT ZERO, THEN 
01 ZERC WORK AREA 
END I F 

IF NOT 3CIDS CR 3REFRSH, THEN 

01 IF BLCCKEO ARRAY, THEN 

02 IF CADD NAME IS BLANK f T HEN 

03 MVE CBINIT2 DCNAME 

02 ELSE 

03 NOVE IN DDNAME 
02 END I F 

02 DO OPENDDS - CPEN BDAM CCb 

02 DO bRDD SCTL - WRITE DDS CONTROL SEGMENT 

02 DO WRDDSEND - WRITE DDS END RECORD 

02 IF BUFFER EXISTS, THEN DR#2056 

03 FREE BUFFER 
02 END IF DR#2056 

02 IF DDS DCB IS OPEN, THEN 

03 CLOSE CCS DCB 

03 IF BUFFERS 

04 FREE POOL BUFFERS DR#2056 
03 ENCIF CR#2056 

02 END IF 

01 ELSE 

02 PPINT NOT A BLOCKED ARRAY MSG 
02 ENTER TEST MODE 

01 END IF 
ELSE 

01 IF NOT-FST-CIO BIT ZERO, THEN 

02 MVE OB I N IT 2 OD NAME 

02 DC CPENODS - OPEN DDS CCB 

02 SET NOT-FST-CID BIT TC ZERO 

01 END I F 

01 IF END— C ID BIT IS ZERO, THEN 

02 DO WRITEDDS - WRITE DDS RECORD 

01 ELSE 

02 DO WRDDSEND - WRITE DDS END RECORD 
01 END IF 

01 IF END-CIC BIT IS ONE , THEN 

02 CLCSE DDS DCB 

02 IF BUFFERS 

03 FREEPCOL BUFFERS DR#2056 
02 END IF DR#2056 

02 SET NOT-FST-CIC BIT TO ZERO 

01 END IF 

( 
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Figure 3-148 (2 of 5). DPPXDBDA 
ENDIF 

RESTORE REGS 0-12 

RETURN 

BGNSEG 

01 CCNAME TO CA CNTL RECORD 

01 OPEN CDS OCB 

01 IF 

02 SET TEST MODE 

02 PRINT TEST HCDE DUE TO £ AC OPEN MSG 

02 WORK WITH DEFAULT MAX RECORC SIZE 

01 ELSE 

02 IF NO BLKS I Z f THEN 

03 GET MAX BLKSI2E FOR DEVICE 

02 ELSE 

03 GET DOS BLKSIZE 
02 ENCIF 

01 END IF 

01 IF bRITE-CIDS BIT IS OFF , THE N 

02 GETNAIN FOR RECORD SIZE BUFFER 

01 ELSE 

02 SET BUFFER ADDRESS TO ZERO 
01 END IF 

01 SAVE BUFFER ACDRESS 

ENDSEG OPENDDS OPEN DOS DCB 

BGNSEG WRDCSCTL - WRITE DDS ARRAY CTRL SEGMNT 

01 IF ARRAY BLKSIZE IS NT ZE PO »THEN 

02 GET DATA BLCCK SIZE 

01 ELSE 

02 CALC BLOCK SIZE 
02 PUT SIZE IN ARRAY 
01 END IF 

01 IF BKSZ GT DS BKSZ,THEN 

02 TRUNCATE ARRAY eKSZ 

02 PRINT ARRAY BLOCK SIZE TRUNCATE C MSG 

01 ENDIF 

01 UNTIL END OF BLOCK CNTL BLOCKS, DO 

02 CLEAR BUFFER 

02 GET LAST BLOCK NUMBER USED 

02 GET START BLOCK NUMBER 

02 IF NO START BLOCK NUMB, THEN 

03 USE NEXT AVAILABLE BLOCK NUMBER 
02 END IF 

02 IF STRT BKNO GT LAST BKNCTHEN 

03 CET DIFFERENCE 

03 UNTIL LAST BKNC EO START BKNO 

04 DO WRITEDDS - WRITE ZEPCS TC DDS 
03 ENDDO 

02 ENDIF 
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02 IF NOT LUGGING ARRAY » THEN 

03 GET SIZE CF CAT A IN BLOCK 

03 IF CATA SIZE GT BLOCK SIZE* THEN 

04 PRINT C AT A TRUNCATED MSG 
04 TRUNCATE TO BLOCK SIZE 
03 ENDIF 

03 MOVE DATA TO CUTPUT BUFFER 

02 END I F 

02 IF NO START BLOCK NUMBER, THEN 

03 USE NEXT AVAILABLE BLOCK NUMBER 

02 ELSE 

03 IF 

04 PRINT BLK NUMBER ERROR MSG 

04 USE NEXT AVAILABLE ELK NUMBER 

03 ENDIF 

02 END IF 

02 IF NO STOP BLOCK NUMBER , THEN 

03 USE START BLOCK NUMBER 
02 ENDIF 

02 IF STOP NUM+1 GE START NUM , THEN 

03 UNTIL ALL DUPLICATIONS ARE DONE, CO 

04 DC WRITEDDS - WRITE DATA TO DCS 

03 ENDDO 

02 ENDIF 

02 INCR TO NEXT CCNTRGL BLCCK 

01 ENDDO 

01 IF BKCT GT LAST BKNO,THEN 

02 GET DIFFERENCE 

02 IF NOT LGGGING ARRAY 

03 CLEAR BUFFER 
02 ENDIF 

02 UNTIL ALL BLCCKS WRl TTENt DO 

03 CC WRITEODS - WRITE ZEROS TO CDS 
02 ENDDO 

01 ELSE 

02 IF BKCT LT LAST BKNO,THEN 

03 PRINT ARRAY BLOCK COUNT EXCEEDED MSG 
02 END IF 

01 ENDIF 



ENDSEG WRDDSCTL END OF DOS CONTROL SEGMENT 

BGNSEG WRDDSEND - WRITE DOS END RECORD 
01 IF NCT IN TEST MODE, THEN 



02 UNTIL CAPACITY RECORD WRITENt DO 

03 WRITE CAPACITY RECORD 

03 IF RETURN CODE IS NCT 12, THEN 

04 SET GOOD WRITE SZ BIT 

0^ IF FIRST TRK BIT IS ONE f THEN 

05 SAVE BLOCKS CN TRACK CNE 
05 TURN GFF FIRST TRACK 6 IT 
05 TURN CN SECOND TRACK BIT 
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04 ELSE 

05 IF SECOND TRK BIT IS CNE , THEN 

06 SAVE BLCCKS CN SECCND TRACK 
06 TURN OFF SECOND TRACK BIT 
05 ENCIF 

04 ENOIF 
03 ENDIF 
02 ENOCO 
01 END IF 

01 TURN CFF GOOD WRITE SI BIT 

01 IF NCT WRITE C IDS t THEN 

02 CLEAR BUFFER 
01 END IF 

01 SET END OF C ATA BIT 

01 UNTIL END OF TRAC K t DO 

02 DO WRITEDCS - PAD TO END CF TRACK 
Oi ENDDO 

ENDSEG WRDDSEND END OF WRITE CCS END SEGMENT 
BGNSEG WRITEDOS - WRITE DATA TO CDS 

01 IF WRITE CIDS BIT IS ONE tTHE N 

02 GET A(ICB BUFFER) 

01 ELSE 

02 GET A ( DATA BUFFER) 
01 ENDIF 

01 IF END DATA BIT IS CNE, THEN 

02 USE MAX LENGTH FCR WRITE 

01 ELSE 

02 IF WRITE CICS BIT IS ONE, THEN 

03 USE CIDS RECORD SIZE 

02 ELSE 

03 USE LENGTH OF DATA 
02 ENDIF 

01 ENDIF 

01 IF TEST MODE IS NOT SET, THEN 

02 UNTIL GCOD CAT A WRITE, DC 

03 WRITE CAT A RECORD TO CDS 

03 IF RC=4,THEN 

04 UNTIL GOOD CAPACITY REC WRTE,DO 

05 WRITE CAPACITY RECORD 

05 IF RC NCT EQUAL 12, THEN 

06 SET GOOD CAPACITY RECORD BIT 

06 IF END OF CAT A BIT IS ONE f THEN 
OT SET END OF TRK BIT 

07 SET GOOD CAT A WRITE BIT 

06 ELSE 

07 IF FIRST TRK BIT IS ONE , THEN 

08 IF BLKS PER TRK IS NOT ZERO, THEN 

09 SAVE BLCCKS CN TRACK ONE 
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09 TURN OFF FIRST TRACK BIT 

09 TURN CN SECONC TRACK BIT 

08 ENDIF 

07 ELSE 

08 IF SECOND TRK BIT IS ONE* THEN 

09 SAVE BLOCKS CN SECOND TRACK 
09 TURN OFF SECOND TRACK BIT 
08 ENDIF 

07 ENDIF 

06 END IF 

05 ENDIF 

04 ENDDO 

03 ELSE 

04 IF RC NOT EQUAL 12, THEN 

05 SET GOOD CAT A WRITE BIT 

05 INCR BLCCK PER TRK CCUNTER 

04 END IF 

03 ENDIF 

02 ENDDO 

02 SET GOOD DATA WRITE BIT 

02 IF FST DTA WRTE BIT ZERC.THEN 

03 GET A(MBBCCHHR) 

03 LINK TO CONVERSION ROUTINE 

03 SAVE FIRST RECORD TTR 

03 SET FIRST CATA WRITE BIT 

02 END IF 

01 ELSE 

02 IF END OF CATA BIT IS ONE *THE N 

03 SET END OF TRK BIT 
02 ENCIF 

01 END IF 

ENDSEG fcRITECDS WRITEDDS - WRITE DATA TO DCS 
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Figure 3-149. DPPXDBIN 

OPPXCBIN-MAIN SEGMENT 
INITIALI ZE WORK AREAS 
COPY CPXDBIN6 



IF NC ERRORS OCCURED 
01 COPY CPXCBIN1 

01 IF NO ERRORS OCCUR ED 

02 COPY DPX0BIN2 

02 IF NO ERRORS OCCURED 

03 COPY DPXDBIN3 

03 IF NO ERRORS OCCURED 

04 COPY DPXDBIN4 
03 ENDIF 

02 END IF 

01 END I F 

ENDIF 

IF ERRCRS OCCURED 
01 ABEND STEP WITH USER CCMPLET 



END I F 

ENDSEGMENT 



READ IN DIRECTORY BLOCKS 
OBTAIN CORE FOR 2 1 N I T DATA 
BUILD C ATA BASE CCNTROL 
SORT VS RESIDENT ARRAY DATA 
WRITE UNIT ITEM AND DATA RECORDS 

CODE 
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DPPXOBLG - C AT A BASE LOGGING FPP 
SAVE REGS 

GET SAVE/WCRK AREA 

IF NOT PRINT R ECUEST t T HEN 



01 GET A ( S TRT OF LOG EL E ARRY DTA - (LOG FDR)) 

01 GET A (LOGGING ARRAY) 

01 IF CACD LCGNG IS BLANK, THEN 

02 INSPT CBINIT2 DCB 

01 ELSE 

02 INSRT OONME IN CCB 
01 END I F 

01 CPEN DA DDNAME DCB 

01 IF 

02 SET RUN TO TEST MODE 
02 PRINT ERROR MESSAGE 

02 WORK WITH MAX REC SIZE 

01 ELSE 

02 IF NO BLKSI Z »THEN 

03 GET MAX BLKSIZ FOR DEVICE 

02 ELSE 

03 GET DCS BLKSIZE FROM CCB 
02 ENDIF 

01 ENDIF 

01 SAVE BLKS IZE 

01 IF LCGBLE ARRAY IS BLOCKC,THEN 

02 IF BLKSIZE IS ZERO, THEN 

03 CALCULATE BLKSIZE 
02 END IF 

02 CALCULATE TOTAL SIZE OF ARRAY 

02 IF TOT LEN GT CS BLKSIZE, THEN 

03 IF BLKSIZE LESS THAN LG HD SIZE 

04 CALCULATE NUM BLKS TO HOLO LOG HEADER 
04 CALCULATE TCTAL ARRAY SIZE 

03 ELSE 

04 ADO A BLOCK TO HCLD LOGHDR 
03 ENDIF 

02 ELSE 

03 MAKE TOT LEN W/ LOGHDR BE BLKSIZE 
02 END I F 

01 ELSE 

02 GET ARRAY SIZE (INCLUDING LG HDR) 
01 ENDIF 

01 IF TOT SZ GT DS BLKSIZE, THEN 

02 CALCULATE LOGGING ARRAY BLOCKS PER COPY 

01 ELSE 

02 DA LOG ARRAY BLKS PER COPY = 1 
01 ENDIF 

01 CALCULATE CA LOG ARRAY BLCCK CCUNT 
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01 SAVE CA LCG ARRAY BLCCK CCUNT 

01 SAVE DA LCG ARRAY BLCCK SIZE 

01 SAVF DA LCG ARRAY BLOCKS PER COPY 

01 IF CCB CP, THEN 

02 CLOSF DA CCB 

02 IF BUFFERS 

03 FPEEPOOL BUFFERS CR*2056 
02 END I F DR$2056 

01 END I F 
ELSE 

01 DO PRINT LINE FROM INPUT 
END I F 

FRF E SAVE/WCRK AREA 
RESTORE REGS 0-12 
RESET RETURN CODE 
RETURN 

BGNSEG FCRMAT AND PRINT A LINE 
01 PUT LINE TO SYSPRINT 

ENDSEG PRINT PRINT ROUTINE 
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DPPXDEFL-OEFINE LOCK MAIN SEGMENT 



01 LOAC ADDRESS OF LOCK CCNTROL BLOCK CHAIN 

01 WHILE NEXT CCNTROL BLOCK ADORESS IS NON-ZERO, AND 

01 UNTIL A PREVIOUSLY DEFINED CCNTROL BLOCK IS FOUND FOR THIS RESOURCE 

02 LOAD ADDRESS OF NEXT CCNTRCL BLOCK 
01 ENDDO 

01 IF TYPE=CET REQUEST 

02 IF BLOCK NCT PREVIOUSLY DEFINED 

03 GETMAIN LOCK CCNTROL BLOCK STORAGE 
03 INITIALIZE CCNTROL BLOCK 

03 CHAIN CONTROL BLOCK INTO CHAIN OF LOCK CCNTROL BLOCKS 

02 END I F 

02 LOJD ADDRESS CF THIS LOCK CCNTROL BLOCK 

01 ELSE 

02 IF TYPE=REL REQUEST 

02 IF BLOCK IS PREVIOUSLY DEFINED 

03 DECREMENT USE COUNT 

03 IF COUNT IS LESS THAN 1 

04 REMOVE LCCK CCNTROL BLOCK FROM CHAIN OF LOCK CGNTROL BLOCKS 
04 FREE CCNTROL BLOCK STORAGE 

03 END I F 

02 END I F 

02 ELSE 

03 IF T YPE=F I ND REQUEST 

04 IF BLCCK PREVIOUSLY DEFINED 

05 LOAC ADCRESS OF IHiS LOCK CONTROL BLCCK 

04 ELSE 

05 SET ERROR CODE 
04 END IF 

03 ENDIF 

02 ENDIF 

01 ENDIF 



ENDSEGMENT 
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Figure 3-152. DPPXDPB 



DPPXCPB MAIN SEGMENT * C AT £ PLAYBACK ROUTINE * 



01 LOCK DATA PLAYBACK ROUTINE 

01 GET PLAYBACK PARAMETERS 

01 CETMAIN PLAYBACK BUFFER SPACE 

01 MOVE PLAYBACK OCR TO WORK AREA 

01 OPEN PLAYBACK CCB INPUT 

01 IF PLAYBACK CCB NOT OPENED THEN 

02 IF ROUTINE OFFLINE JOB THEN 

03 ISSUE ABEND DUMP 

02 ELSE 

03 ISSUE MESSAGE 51 
02 END I F 

02 SET RE TURN-CODE TO 8 

01 ELSE 

02 DO UNTIL REQUESTED DATA PLAYED BACK 

03 GET RECORi) FROM RECORD ING/PL AYE ACK D.S. 

03 IF AN INITIALIZATION RECORD THEN 

04 GET CAT A RECORD FR CM CAT A RECORD ING/ PL AYB ACK D.S. 

04 IF DATA FALLS WITHIN SPECIFIEC TIME RANGE THEN 

05 MCVE LATA FROM CSAM BUFFER TO PLAYBACK BUFFER 

05 IF DATA TO BE PASSED TO USER PRCGPAM TFEN 

06 LINK TC USER PROGRAM 

05 ELSE 

06 LINK TC HEX DUMP RCUTINE 
05 ENDIF 

OA ENCIF 
03 ENDIF 
02 ENDIF 

01 FNCIF 

01 FREE PLAYBACK PUFFER SPACE 

01 UNLOCK DPPXCPB 



ENDSEGMENT CPPXDFB 
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Figure 3-153 (1 of 2). DPPXDRC 

DPPXORC MAIN SEGMENT * DATA RECORDING PCUTINE * 



01 GET INPUT RECCPD PARAMETERS 

01 LCCK DPPXDRC 

01 MOVE ADDR DF S YN AD ROUTINE TO CAT A RECORDING DCB 

01 IF ENABLE AIL ID FLAG CN THEN 

01 SET REGISTER 15 TC ZERO 

01 ESLE 

0? IF ALL ID'S NOT DELETED FROM CAT A RECORDING TABLE THEN 

03 DO UNTIL END OF DATA RECORDING TABLE 

04 IF SPECIFIED 10 IN C ATA RECORDING TABLE THEN 
04 SET REGISTER 15 TO ZERO 

04 END I F 

03 ENDDO 

02 END I F 
01 END I F 

01 IF ENABLE ID FLAG ON THEN 

02 IF DATE IN DATA RECORD TABLE DIFFERENT FPCM CURRENT DATE THEN 

03 UPCATE TIME IN DATA RECCRDING TABLE 

03 MCVE C AT E RECORD HEADER TO QS AM CUTPUT BUFFER 

03 PERFORM WRITE ROUTINE 

02 END I F 

02 MOVE CAT A RECORD HEADER TO OSAM OUTPUT BUFFER 
01 END I F 

01 UNLOCK DPPXCPC 

01 EXIT ROUTINE 

01 CPPXCRC WRITE(OUTPUT) ROUTINE 
0? IF OSAM BUFFER FULL THEN 

03 SET BUFFER FULL FLAG 

02 ELSE 

03 SET BUFFER FLAG TC NOT FULL 
02 END I F 

02 IF CAT A WILL FIT ON EUFF ER T FEN 

03 SET HEADER FLAG TO 0 

03 MOVE DATA TO CSAM CUTPLT eUFFER 

03 IF QS AM BUFFER HAS LESS THAN 50 BYTES ( FULL ) REMAINING THEN 

04 IF BUFFER NCT CCPPLETLY FULL THEN 

05 MOVE PAD RECORD TO Q SAM OUTPUT BUFFER ( I D=6 ) 
05 ZERO C AT A AREA CF PAD RECORD 

04 ENDIF 

04 WRITE QS AM OUTPUT BUFFER TO CATA RECORDING/PLAYBACK D.S. 

03 ENDIF 

02 ELSE * IF DATA WILL NCT FIT CN EUFFER THEN * 

03 SET HEADER FLAG TO I 

03 MOVE PART CF DATA TO CSAM CUTPUT BUFFER 

03 WRITE QSAM OUTPUT BUFFER TO CATA RECORDING/PLAYBACK DATA SET 

03 DC UNTIL REMAINING BYTES OF ENTRY ARE PCVED TO CATA SET 



( 
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04 MOVE SUBHEADER FLAG( 2 ) TG QS AM OUTPUT BUFFER 

04 MOVE PART OF DATA TO 0 SAM OUTPUT BUFFER 

04 IF BUFFER HAS LASS THAN 50 BYTES i FULL ) REMAINING THEN 

05 IF BUFFER NOT COMPLETLY FULL THEN 

06 MOVE PAD RECORD TO QSAM OUTPUT BUFFER! ID=6> 
06 ZERO DATA AREA OF PAD RECORD 

05 END I F 

05 WRITE CSAM OUTPUT BUFFER TO CATA RECORDING/PLAYBACK C.S. 

04 ENDIF 
03 ENDDO 
02 ENDIF 

01 ENC DPPXDRC WRITE ROUTINE 

DPPXDRC STAE ROUTINE 

01 IF I/O ERROR, PROGRAM CHECK OR ANY ERROR IN TASK DPPXRINT THEN 

02 ISSUE ERROR MESSAGE 

02 DISABLE DATA RECORDING 

01 ENDIF 

END OPPXCRC STAE ROUTINE 

ENDSEGMENT DPPXDRC 
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Figure 3-154. DPPXDRCX 



CPPXDRCX MAIN SEGMENT * DUMMY DATA RECORDING ROUTINE * 

01 SET RETURN CODE TO 00 
ENDSEGMENT CPPXDRCX 

Figure 3-155. DPPXIMPP 

DPPXIMPP MAIN SEGMENT * INPUT MESSAGE PROCESSING ROUTINE * 

01 BUILD TRANSLATE AND TEST TABLE 

01 RETRIEVE PATCH PARAMETERS 

01 MOVE INPUT MESSAGE PROCESSING PARAMETERS TC WORK AREA 

01 USE GETARRAY MACRO TO FIND INPUT MESSAGE PROCESSING TABLE IN O.B. 

01 MOVE IMP CODE IN PARAMETER LIST TO WORK AREA 

01 STRTSRCH UNTIL IMP CODE FCUND IN IMP TABLE 

02 INCREMENT IMP TABLE TO NEXT ENTRY 

01 IF IMP CODE FOUND IN IMP TABLE THEN 

02 IF IMP PARAMETERS WERE PASSED TO DPPXIMPP 

03 BUILD PATCH PROBL TO CCNTAIN SPECIFIED IMP PARAMETERS 

03 CO UNTIL ALL PARAMETERS ARE PROCESSED 
34 IF HEXADECIMAL DATA THEN 

05 CCNVERT DATA TO HEXADECIMAL FORMAT 

04 ELSE 

05 IF FULLWORD DATA THEN 

06 CONVERT DATA TO FULLWORD FORMAT 

05 ELSE * IF CHARACTER DATA * 

06 CCNVERT DATA TO EBIOIC FCRMAT 
05 ENDIF 

04 END IF 

03 ENDDO 

02 ENDIF 

02 PATCH PROCESSING PROGRAM POINTEC TO BY THE IMP CODE IN IMP TABLE 

01 ENDIF 

01 IF IMP CCDE NOT FOUND IN IMP TABLE THEN 

02 ISSUE ERROR MESSAGE 
01 ENDIF 

01 ENDSRCH 

ENDSEGMENT DPPXIMPP 



( 
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Figure 3-156. DPPXIMPW 

DPPXIMPW MAIN SEGMENT * INPUT MESSAGE WTGR ROUTINE * 



01 DC WHILE SYSTEM RUNNING 

02 ISSUE WTOR TG SYSTEM/370 OPERATOR 
02 WAIT FOR SYSTEM/370 OPERATOR REPLY 

02 IF STOP CCMMAND SPECIFIED THEN 

03 TERMINATE JOB STEP WITH ABEND 122 
02 END I F 

02 CALCULATE LENGTH CF CPERATOR REPLY 

02 ISSUE WTO MESSAGE # INPUT MESSAGE PROCESSING COMMAND ACCEPTED 4 

02 PATCH DPPXIMPP WITH 370 OPERATOR REPLY AS A PARAMETER 

01 ENDDO 



ENDSEGMENT DPPXIMPW 



Figure 3-157. DPPXKILL 

DPPXKILL MAIN SEGMENT * CANCEL DUMP ROUTINE * 



01 RETRIEVE PASSEC PARAMETERS 

01 IF OPERATOR COMMENTS PASSED BY IMP CCMFAND THEN 

02 ISSUE MESSAGE 60 WITH OPERATOR COMMENTS 
01 ENDIF 

01 IF DUMP PARAMETER PASSED THEN 

02 CANCEL THE SPECIAL REAL TIME OPERATING SYSTEM WITH ABEND 122 

01 ELSE 

02 IF NCDUMP PARAMETER PASSEC THEN 

03 CANCEL THE SPECIAL REAL TIME OPERATING SYSTEM WITH ABEND 222 
02 ENDIF 

01 ENDIF 



ENDSEGMENT DPPXKILL 



Figure 3-158. DPPXLOCK 

DPPXLCCK - LOCK SUEROUT I NE MAIN SEGMENT 



01 IF TYPE=LCCK REQUEST 

02 IF RESOURCE NCT AVAILABLE 

03 CONSTRUCT WAIT CONTRCL BLCCK 

03 CHAIN WCB ONTO LOCK CCNTRCL BLGCK«S CHAIN OF WCB'S 

03 WAIT CN WCB'S ECB 

03 SAVE CURRENT TCB ADDRESS IN LOCK CONTROL BLOCK 

02 ENDIF 

01 ELSE 

02 IF SCMEONE ELSE WANTS THIS RESOURCE 

03 POST THE WC8«S ECB 
02 ENDIF 

01 ENDIF 



ENDSEGMENT 



3-187 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure 3-159. DPPXIMRTI 

DPPXNRTI MAIN SEGMENT * DATA PLAYBACK NON-REAL TIME iNITI AL I ZATICN 



01 ROUTINE * 

LCCK DPPXNRTI 

GET INPUT PARAMETERS 

7ERC OUTPUT WCRK AREA 

IF START DATE = ALL THEN 
01 MOVE ALL TC WORK AREA 

01 IF LOAD MODULE NAME SPECIFIED THEN 

02 MOVE LOAD MODULE NAME TO WORK AREA 
01 END IF 

ELSE 

01 IF START CATE IS NCN-ZERC THEN 

02 MOVE START CATE TO WORK AREA 
01 ENDIF 

01 MOVE START TIME TO WOPK AREA 

01 IF STOP CATE IS NON-ZEPC THEN 

02 MOVE STOP CATE TC WOPK AREA 
01 END I F 

01 MCVE STOP TIME TO WORK AREA 

01 IF LOAD MODULE NAME SPECIFIED THEN 

02 MOVE LOAC MODULE NAME TC WORK AREA 
01 ENDIF 

01 DC UNTIL EACH ID HAS BEEN PLACED IN WORK AREA 

02 MOVE ID TC WORK AREA 
01 ENDDC 

ENDIF 

LINK TO DPPXCCN 
UNLOCK DPPXNRTI 



ENDSEGMENT DPPXNRTI 
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Figure 3-160. DPPXPCON 

DPPXPCCN MAIN SEGMENT * C AT A PLAYBACK CONVERSION ROUTINE * 



01 OPT INPUT PARAMETERS 

01 ZERC WCRK AREA 

01 MOVE START CAT E TO WORK AREA 

01 IF START CATE = ALL THEN 

02 IF LOAC MODULE NAME SPECIFIEC THEN 

03 MOVE LOAD MODULE NAME TC WORK AREA 
0? EN 0 I F 

02 IF OFFLINE JOB THEN 

03 SET OFFLINE FLAG IN WORK AREA 
02 END I F 

01 ELSE 

02 CCNVERT START TIME FROM EBICIC TO BINARY INTO WORK AREA 
02 MCVF STOP CATE TO WORK AREA 

02 CCNVERT STOP TIME FRCM EBIOIC TO BINARY INTO WORK AREA 

02 MCVE LOAC MODULE NAME TO WORK SPACE 

02 CCNVERT IC COUNT FROM EBIOIC TO BINARY INTO WORK AREA 

02 IF OFFLINE JOB THEN 

03 SET OFFLINE FLAG IN WORK AREA 
02 END I F 

02 DC UNTIL ALL I C • S ARE CCNVERTfcC TO BINARY HALF WORDS 

03 CONVERT ID FRCM EBIOIC TO BINARY HALFWORD INTO WORK AREA 

02 ENDDO 

01 END I F 

01 LINK TO CPPXDPB * CAT A PLAYBACK ROUTINE * 



ENDSEGMENT DPPXPCCN 



Figure 3-161. DPPXRDR 

DPPXRDR MAIN SEGMENT * HEX DUMP ROUTINE * 
01 . GET ADDRESS OF CATA TO DUMP 
01 MCVE PRINT CCB TC WORK AREA 

01 OPEN PRINT CCB 

01 IF CCB NCT OPENED THEN 

02 ISSUE ABENC DUMP 
01 END IF 

01 DO UNTIL INPUT CATA HAS BEEN CUMPED 

02 IF BEGINNING CF PAGE THEN 

03 PRINT HEADFR 
02 ENDIF 

02 CONSTRUCT HEX DUMP PRINT LINE 

02 PRINT CONSTRUCTED DUMP LINE 

01 ENCCO 

ENDSEGMENT CPPXRCR 
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Figure 3-162. DPPXRINT 

DPPXR [ NT MAIN SEGMENT * C AT A RECORDING INITIALIZATION ROUTINE * 



01 GETINPUT PARAMETERS 

01 BUILD LCCK CCNTRCL BLOCK 

01 LCCK DPPXRINT 

01 IF DISABLE PARAMETER SPECIFIED THEN 

02 IF DATA RECORDING PREVIOUSLY ENABLED THEN 

03 PLACE DPPXRINT IN KEY-0 

03 ZERO CATA RECORDING TABLE F I EL D ( SCVTR W A ) IN SCVT 

03 LOAD DUMMY DATA RECORDING RUUT I NF ( CPPXCRCX ) 

03 STORE ACCRESS OF DPPXCRCX IN SCVT 

03 PLACE DPPXRINT IN ORIGINAL PRCBLEM PROGRAM KEY 

03 CLOSE DATA RECORDING CCB 

03 FREE CSAM CUTPUT BUFFERS 

02 ENDIF 

01 ELSE * IF ENABLE PARAMETER SPECIFIED THEN * 

02 IF INITIAL DATA RECORDING INITIALIZATION THEN 

03 GETMAIN SPACE FOR CATA RECORDING TABLE AND CCB 
03 MOVE HAT A RECORDING CCB TO GETMAIN AREA 

03 .CPfc'N C AT A RECORDING DC B 

03 IF DC B NCT OPENED THEN 

03 ISSUE ERROR MESSAGE 

03 ENDIF 

03 PLACE DPPXRINT IN KEY-0 

03 LOAD C AT £ RECORDING RCUT INE( DPPXCRC) 

03 STORE ADCRESS CF CPPXCRC IN SCVT 

03 ' STORE AQDRFSS OF XCVT IN DPPXCRC CONSTANT AREA 

03 STORE ADDRESS OF SCVT IN DPPXDRC CONSTANT AREA 

03 STORE ADCRESS OF CATA RECORDING TABLE IN SCVT { SCVTRW A) 

03 STORE ADDRESS OF CATA RECORDING TABLE IN DPPXDRC CCNSTANT AREA 

03 STORE ADCRESS OF T IMF ARRAY IN DPPXDRC CONSTANT AREA 

03 PLACE DPPXRINT IN ORIGINAL PROBLEM PROGRAM KEY 

03 MOVE LOCK CONTROL PLOCK NAME TO CPPXDRC CCNSTANT AREA 

03 STORE ADCRESS OF LCCK CONTROL BLCCK ADDRESS IN DPPXDRC 

03 RETRIEVE A OSAM OUTPUT BUFFER 

03 STORE ADCRESS OF OUTPUT BUFFER IN CPPXDRC CCNSTANT AREA 

03 MOVE COPY CF TIME ARRAY TO CATA RECORDING TABLE 

02 ENDIF 

02 IF ADC PARAMETER SPECIFIED THEN 

03 STORE PASSED ID PARAMETERS IN CATA RECORDING TABLE 

02 ELSE 

03 IF DELETE PARAMETER SPECIFIED THEN 

04 DELETE PASSED ID'S FROM CATA RECORDING TABLE 
03 ENDIF 

02 ENDIF 

02 IF ALL PARAMETER SPECIFIED THEN 

03 SET CATA RECORDING ID CCUNT TO ENABLE ALLI255) 
02 ENDIF 

02 ENDIF 

02 SET CATA RECORDING ID COUNT IN CATA RECORDING TABLE 

01 ENCIF 



ENDS E GMF N T DPPXRINT 
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Figure 3-163. DPPXRPRT 

DPPXRPRT MAIN SEGMENT * REPORT CATA OUTPUT FACILITY * 



01 MOVE NAME OF PASSEO OUTPUT DDNAME TO DCB 

01 OPEN OUTPUT CATA SET DCB 

01 IF OUTPUT CATA SET DCB NOT CPE NED THEN 

02 ISSUE ERROR MESSAGE * SYSTEM MESSAGE 53 * 

01 ELSE 

02 IF NEW PARAMETER PASSED THEN 

03 IF OUTPUT CATA SET ON TAPE THEN 

04 REWIND TAPE DRIVE TO BEGINNING OF DATA SET 

03 ELSE 

04 IF OUTPUT DATA SET CN DISK THEN 

05 POSITION DISK DRIVE AT BEGINNING OF DATA SET 
04 END I F 

03 END IF 

02 ENDIF 

02 DO UNTIL ALL INPUT DATA SETS MOVED TO OUTPUT DATA SET 

03 MOVE NAME CF PASSED INPUT DDNAME TO DCB 
03 OPEN INPUT DATA SET DCB 

03 IF INPUT CAT A SET CCB NOT OPENED THEN 

04 ISSUE ERROR MESSAGE * SYSTEM MESSAGE 53 * 

03 ELSE 

04 DC UNTIL ENTIRE INPUT CATA SET MCVED TO OUTPUT DATA SET 

05 MOVE DATA RECOPD FROM INPUT DATA SET TO OUTPUT DATA SET 

04 ENDDO 

03 ENDIF 

03 CLOSE INPUT DATA SET DCB 

02 ENDDO 

01 ENDIF 

01 CLOSE OUTPOT DATA SET DCB 



ENDS EGMENT DPPXRPRT 



Figure 3-164. DPPXSVCP 



DPPXS VCP-MA IN SEGMENT 

INITIALIZE WORK AREAS 

IF INPUT APR AMET ERS ARE VALID 
01 BUILD PARAMETER TO RETURN TO INITIAL PSW STATUS 

01 CALL MODESET TO CHANGE FSW 

ENDIF 

LOAD ADDRESS OF TABLE OF NUCLEUS ACDRESSES 
ENDSEGMENT 
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Figure 3-165 (1 of 10). DPPXUTIL 

MAIN SEGMENT OF DPPXUCTL 
SAVE REGS 

GET SAVE/ WORK AREA 
CLEAR GET MA I N AREA 
OPEN PRINT CCE 

IF NO PARM FLO CN EXEC CARD, THEN 
01 SET ASM OPTICN TO «F» 
ELSE 



01 VALIDITY CHECK P ARM AND SET ASM OPTION 

01 NOPDL 

01 IF PAPM=H,CR 

01 IF PARM=«H,NOGEN« ,THEN 

01 ELSE 

02 IF PARM=' H,GEM , THEN 

02 ELSE 

03 IF PARM=»F»,OR 

03 IF PARH=« NCGEN» ,0R 

03 IF PARM- 1 F, KOGEN* f THEN 

03 ELSE 

04- IF PARM=* GEN' , OR 

04 IF PAR M= , FtGEN', THEN 
04 ELSE 

04 END IF 

03 END IF 

02 END IF 

01 END IF 



ENDIF 

IF ASM CPTICN IS H, THEN 
01 BUILD »H« ASSEMBLER PARM LIST 
ELSE 

01 BUILD «F« ASSEMBLER PARM LIST 
ENDIF 

SET UP LCADER PAR M LIST 
SET UP I EBUPDTE PAR M LIST 
SAVE SVC FOR ABEND PROCESSING 
OPEN SYSPRINT ANC SYSIN 
IF SYSPRNT NT OP, THEN 

01 SET RETURN COOE TO 16 

01 TAKE ERROR EXIT-ALL 
END IF OPEN PRINTDCB 
PRINT OFFLINE UTILITY HEADER LINE 
IF ERR IN EXEC CRD PRM FLO, THEN 

01 PRINT PARM FIELD ERROR MESSAGE 
ENDIF 

IF SYSIN NCT CPEN 
01 PRINT MISSING DD-CARD MESSAGE 
01 SET RETURN CODE TC 12 
01 TAKE ERROR EXIT-ALL 

ENDIF CPEN INCCB 
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Figure 3-165 (2 of 10). DPPXUTIL 

UNTIL END OF FILE APISES FRCM SYSIN,DO 



01 IF CCMPOL C*RD NCT S AV F D ,THEN 

02 GET ONE CARD FRCM SYSIN 
01 END I F NOT SAVED 

01 PRINT CARD IMAGE TO SYSPRINT 

01 IF CARD IS NOT CONTROL CARD 

02 PRINT FIRST CARD MUST BE A CONTROL CARD MSG 

01 ELSE 

02 IF CCNTFCL C*PO VALID 

03 PRINT CONTROL CARD VALIC MESSAGE 
03 OPEN SYSUT4 DO CARD FOR OUTPUT 

03 IF OPEN NCT SUCC. 

04 PRINT MISSING DD— CARD MSG 
04 SET RETURN CODE TO 12 

04 TAKE ERPCR EXIT-ALL 

03 ENDIF OPEN UTDCB 

03 IF • , THEN IF CNLINE BUILC CTRL CARD 

04 IF NOGEN ASM OPTION S EL ECT EC, T H EN 

05 PUT PRINT NOGEN CARD TO SYSUT4 
04 END IF 

04 BUILD AREA DEFINITION MACRO FROM CONTROL CARD 

04 PUT AREA DEFINITION MACRO TO SYSUT4 

04 DO DPPXUTL2 - INPUT PROCESS CONTROL 

04 BAD - ENTER HERE FROM BAD INPUT DDNME EXIT 

03 ELSE 

04 DO DPPXUTL4 - I EBUPDTE INTERFACE ROUTINE 
03 ENDIF DPPXUCTL 

02 ELSE IF CONTROL CARD IS INVALID 

03 PRINT INVALID, SKIPNG FOR NXT CTL CRD MSG 
03 SET EODAD RETURN AODR - NCEOFIN 

03 UNTIL NEXT CNTL CARD, CO 

04 FLUSH CATA CARDS 
03 ENDDO FLLSH 

02 END I F SWITCHES 

01 END I F #/ 

01 NOWODIN - ENTER HERE FROM END-OF— CAT A RCUTINE 



ENDDO ENDOFILE 

PRINT END OF UTILITY DPPXUTIL MSG 
CLOSE SYSPRINT AND SYSIN DCB'S 
ALL - ENTER HERE FRCM ERROR EXIT 
SAVE RETURN CODE 

IF DTA BSE OPERATION HAS DONE, THEN 
END IF 

FREE SAVE/WORK AREA 
RESTORE RETURN CODE 
RESTCRE REGS 0-12 
RETURN 

BGNSEG CONTROL CARD VALIDITY CHECK ROUTINE 
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Figure 3-165 (3 of 10). DPPXUTIL 

01 FIND NONBLANK CHAR WITHIN CGL 3-63 
01 IF NCNBLANK CHAR FOUND, THEN 



02 IF • ,OR IF CNLINE BUILD CONTROL CARCtGR 

02 IF • , THEN IF UPDATE CCNTROL CARD, THEN 
C3 SAVE OPERATION 

03 IF ANY OPERAND FOUND, THEN 

04 UNTIL BYPASS BIT IS SET, OR 

04 UNTIL • ) ,D0 UNTIL BLANK IS FOUND, DO 

05 IF THIS CHAR IS CCMMA,THEN 

06 INCREMENT BY 1 
05 ENOIF CCMMA 

05 IF »,0R IF THIS CHAR IS BLANK , CR 

05 GET ADDR CF CCNT MARK 

05 IF THIS IS COLUMN 72, THEN 

06 IF • ,THEN IF NO CONTM ARK , TH EN 

07 PRINT PARM OR CONTMARK MISSING MSG 
07 SET BYPASS SWITCH 

06 ELSE 

07 GET CCNT INUAT ION CARD 

07 PRINT CARD IMAGE TO SYSPRINT 

07 IF • ,THEN IF COL 1-15 ARE BLNK , THEN 

08 IF * » T HEN IF COL 16 IS BLANK , THEN 

09 PRINT EXPECTED CONT NOT RECVD MSG 
09 SET BYPASS SWITCH 

08 END IF C0L16 BLANK 

07 ELSE 

08 PRINT COL 1-15 MUST BE BLANK MSG 
08 SET BYPASS SWITCH 

07 END IF COL 1-15 BLANK 

06 ENDIF CONTMARK 

05 ENDIF NEXT CHAR BLANK 

05 IF BYPASS SWITCH IS NOT SET, THEN 

06 FIND NEXT DELIMITER 

06 IF OELIMTR FOUND, THEN 

07 CALCULATE LENGTH OF ENTITY 

06 ELSE 

07 IF •♦THEN IF C0L72 IS BLANK, THEN 

08 CALCULATE LENGTH OF ENTITY 

07 ELSE 

08 PRINT CTL CARD TEXT BEYOND 71 MSG 
08 SET BYPASS SWITCH 

07 ENDIF BLANK 

06 ENDIF DEL I MI TR 

05 ENDIF BYPASS1 

05 IF BYPASS SWITCH IS NOT SET, THEN 

06 IF ' , THEN IF ONLINE BUILD CNTL CRD 

07 IF THIS IS AREA KEYWRO 



( 
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Figure 3-165 (4 of 10). DPPXUTIL 

08 IF FIRST TIME AREA KEYWORD CNTL CRO 

09 CALC ADDRESS OF PARAMETER 
09 CALC LENGTH OF PARAMETER 

09 IF AREA LEN IS NOT ZERO, THEN 

10 IF AREA=DISPDEF,OR 
10 IF AREA=MS GDEF, OR 

10 IF ARE A-DBDEF, THEN 

11 SAVE AREA NAME 

11 IF AR EA,NE» OBDEF, AND DR05451 

11 IF DB OPN WAS DONE, THEN DR#545l 

12 TURN CFF DATA BASE FLAG DR#5451 
12 LINK TO DPPXDBIN DR#5451 
11 END IF DR#5451 

10 ELSE 

11 DO WPARM - WRONG PARAMETER ROUTINE 
10 ENDIF AREA PARAMETERS 

09 EI^DIF AREA NULL 

08 ELSE 

09 DO NOTFST - NOT FIRST TIME FOR KEYWORD ROUTINE 
08 ENDIF AREAL 

07 ELSE 

08 IF INPUT KEYWRD ,THEN 

09 IF FIRST INPT KEYWRD ON CNTL CRD 

10 CALC ADDRESS OF PARAMETER 
10 CALC LENGTH OF PARAMETER 

10 IF INPUT LEN IS NOT ZERO, THEN 

11 IF NOT INPUT=*,TFEN 

12 CALC LENGTH OF DCNAME 

12 DO NAMCFK CHK VALIDTY DDNME 

12 IF DELIMITER WAS ( »T HEN 

13 GET ADDRESS OF MEMBER NAME 
13 GET ADDRESS OF LAST CHAR 
I 3 CALC LENGTH OF MEMBER 

13 IF NO RIGHT PAR EN 

14 ADJUST LENGTH 

14 PRINT RIGHT P4REN MISSING MSG 

I 3 END IF RIGHT PAREN 

13 DC NAMCHK CHK VALIDTY MEM 

12 ENDIF LEFT PAREN 

11 ELSE 

12 STORE DCNAME LENGTH 
12 SAVE ASTERISK 

11 END I F INPUT EQ * 

1° ENDIF INPUT NULL 

09 ELSE 

10 DO NOTFST - NOT FIRST TIME FOR KEYWORD ROUTINE 
09 ENDIF INPUTL 
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Figure 3-165 (5 of 10). DPPXUTIL 



08 ELSE 

09 IF OPTN KEYWD »THEN 

10 IF FIRST TIME 

11 CALC ADDRESS 
11 CALC LENGTH 

11 IF OPTION LEN IS NOT ZERO f THEN 

12 IF CPTICN=A0D,0R 
12 IF 0PTICN=DEL,OR 
12 IF CPTICN=REPL,OR 

12 IF 0PTICN= TEST, THEN 

13 SAVE PARAMETER 

12 ELSE 

13 DO WPARM - WRCNG PARAMETER ROUTINE 
12 END IF OPTION PARAMETERS 

11 END IF OPTION NULL 

10 ELSE 

11 DO NOTFST - NOT FIRST TIME FOR KEYWORD RCUTINE 
10 END IF OPTIONL 

09 ELSE 

10 IF TYPE KEYWD, T HEN 

11 IF FIRST TIME 

12 CALC ADDRESS 
12 CALC LENGTH 

12 IF TYPE LEN IS NOT ZERO, THEN 

13 IF TYPE PARM LT 7 BYTES 

14 SAVE PARAMETER 

13 ELSE 

14 PRINT PARM IN ERROR MSG 
14 SET INVALID SWITCH 

13 END IF LENGTH LESS 7 

12 END I F TYPE NULL 

11 ELSE 

12 DO NOTFST - NOT FIRST TIME FOR KEYWORD ROUTINE 
11 ENDIF TYPEL 

10 ELSE 

11 DO WKEYW - WRONG KEYWORD ROUTINE 
10 ENDIF TYPE 

09 ENDIF OPTION 

08 ENDIF INPUT 
07 ENDIF AREA 

06 ELSE IF UPDATE OPERATION 

07 IF NEWSET KEYWD, THEN 

08 IF FST NEWSET KEYWD ON CNTL CD 

09 CALC ADDRESS 
09 CALC LENGTH 

09 DG NAMCHK - CHK VALIDTY NEWSET 

08 ELSE 

09 DC NOTFST - NOT FIRST TIME FOR KEYWORD ROUTINE 
08 END IF NEWSETL 
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Figure 3-165 (6 of 10). DPPXUTIL 

07 ELSE 

08 IF CLDST KEYWD? THEN 

09 IF FIRST TIME 

10 CALC ADDRESS 
10 CALC LENGTH 

10 DC NAMCHK - CHK VALIOTY OLDST 

09 ELSE 

10 00 NOTFST - NOT FIRST TIME FOR KEYWORD ROUTINE 
09 END I F OLDSETL 

08 ELSE 

09 DO WKEYW - WRONG KEYWORD ROUTINE 
08 END I F OLDSET 

07 ENOIF NEWSET 

06 ENOIF OPPXUCTL 

05 END I F BYPASS2 

04 ENDDO BYPASS OR BLANK 

04 IF NC SWITCH SET 

05 IF • /THEN IF ONLINE BLD OPERATN »THEN 

06 IF NO INPUT WAS SPECI F I ED f T^EN 

07 PRINT INPUT SPEC MISSING MSG 
07 SET INVALID SWITCH 

06 END IF INPUTL 

06 IF NO AREA KEYWORD WAS SPECFD,THEN 

07 PRINT AREA SPEC MISSING MSG 
07 SET INVALID SWITCH 

06 END IF ARE AL 

05 ELSE IF UPDATE OPERAT I ON ,THEN 

06 IF NC NEWSET WAS SPEC I F IEDt TFEN 

07 PRINT NEWSET SPEC MISSING MSG 
07 SET INVALID SWITCH 

06 ENOIF NEWSETL 

06 IF NG OLDSET WAS SP EC I F I ED f THEN 

07 PRINT OLDSET SPEC MISSING MSG 
07 SET INVALID SWITCH 

06 END IF CLDSETL 

05 ENCIF OPPXUCTL 

04 END IF SWITCHES 

03 ELSE IF NO OPERAND FOUND, ALL BLANKS 

04 PRINT NO CPERAND FOUND MSG 
04 SET BYPASS SWITCH 

03 END IF OPERAND 

02 ELSE IF NO VALID OPERATION FCUND 

03 PRINT INVALID OPERATION MSG 
03 SET BYPASS SWITCH 

02 END IF VALIDOP 

01 ELSE IF NC OPERATION FOUND* COL 3-63 ALL BLANKS 

02 PRINT NC CPERATICN FCUND MSG 
02 SET BYPASS SWITCH 

01 END I F OPERATION 

01 MARK CCNTFOL CARD AS PROCESSED 
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Figure 3-165 (7 of 10). DPPXUTIL 

ENDSEG DPPXUTL1 

END OF VALIDITY CHECK ROUTINE 

BGNSEG DPPXUTL2 - INPUT PROCESSING CONTROL 



01 IF INPUT FROM SYS IN ,THEN 

02 GET AICCB) FOR READ FROM SYSIN 
02 DO DPPXUTL3 - INPUT READ/WRITE 

01 ELSE 

02 IF INPUT FRCM SEC CATA SET ,THEN 

03 SET UP AND GET A(DCB) FCR SEQ INPT READ 
03 OPEN REMOTE SEQ INPUT OCB 

03 IF NC DD 

04 PRINT MISSING DD CARD MSG 
04 CLOSE SYSUT4 DCB 

04 FREEPOOL SYSUT4 

04 TAKE BAD INPUT EXIT - BAD 

03 END IF 

03 GET ACOCB) FCR READ FROM SEQ INPUT 

03 DC DPPXUTL3 - INPUT READ/WRITE 

03 CLOSE SEQ INPUT CCB 

02 ELSE 

03 SET UP PDS INPUT OCB 
03 GET A(DCBJ FOR READ 

03 OPEN REMOTE PDS INPUT OCB 

03 IF NO DC CRO 

04 PRINT NISSING DD CARD MSG 
04 CLOSE SYSUT4 

04 FREEPCCL SYSUT4 

04 TAKE BAD INPUT ODNAME EXIT - BAD 

03 END IF 

03 CO DPPXUTL3 - INPUT READ/WRITE 

03 CLOSE PCS INPUT DCB 

02 END IF 

01 END IF 

01 DO DPPXUTL5 - ASM/LOAD/FPP INTERFACE 



ENDSEG DPPXUTL2 

END OF INPUT PROCESSING CONTROL ROUTINE 
BGNSEG *:DPPXUTL3 - INPUT READ/MR I TE 



01 SET UP EOCAC RETURN A DOR ESS- ENDS EG3 

01 WHILE INPUT NE CNTL CRD, DO 

02 GET CARD FROM INPUT DATA SET 

02 IF CARD NE CONTROL CRD, THEN 

03 PIT CARD TO SYSUT4 
02 END IF 

01 ENDDC 

01 ENDSEG3 - ENTRY FOR END-OF-DATA 

01 IF UPCATE OPERATION, THEN 

02 IF AREA=DBDEF,THEN 

03 PUT DBEND MACRO CALL IN OUTPUT 
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Figure 3-165 (8 of 10). DPPXUTIL 



02 
03 
04 
03 
04 
03 
02 
02 



ELSE 



IF ARE A=MSGDEF 



PUT MSGEND MACRO CALL IN OUTPUT 



ELSE 



PUT D I SPEND MACRO CALL IN OUTPUT 



END IF 
END IF 

PUT END MACFC TO SYSUT4 



01 END IF 

01 CLOSE SYSUT4 

01 FREEPCOL SYSUT4 
ENDSEG DPPXUTL3 

END OF INPUT READ/WRITE SUBROUTINE 
BGNSEG CPPXUTL4 - I EBUPDTE INTERFCE 

01 DO DPPXUTL3 - INPUT READ WRITE 

01 MOVE OLDSET DCNAME TO PARM LIST 

01 MOVE NEWSET DDNAME TO PARM LIST 

01 LINK TO IEBUPOTE 
ENOSEG CPPXUTL4 

END OF IEBUPOTE INTERFACE ROUTINE 

BGNSEG DPPXUTL5 - ASM/LOADER/ FPP INTERFACE 

01 IF ASM «H« SPECIFIED, THEN 

02 LINK TO IEV90 

01 ELSE 

02 LINK TO IFOXOO 
01 ENDIF 

01 IF DR#2056 

01 END IF DR&2056 

01 SAVE RETURN CODE 

01 IF RETURN CD IS LT 8,THEN 

02 LCAD HEWLOADR 
02 CALL HEWLOADR 

02 IF FE TURN CD IS LT 8, THEN 

03 SAVE RETURN CODE 

03 LINK TO FINAL PHASE PROCESSOR 

03 SAVE RETURN CCDE 

02 ELSE 

03 SAVE RETURN CCDE 

03 PRINT BAD RETURN CODE FRCM LOADER MSG 

02 ENDIF 

02 IF LOADR STORAGE NOT FREEC BY FPP 

03 IF * IF LENGTH IS NOT ZERO 

04 FREE LOADER GOTTEN STORAGE 
03 ENDIF 

02 ENDIF 

01 ELSE 

02 PRINT BAD RETURN CODE FPCM ASSEMBLER MSG 
01 ENDIF 
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Figure 3-165 (9 of 10). DPPXUTIL 
ENDS EG 0PPXUTL5 

END OF ASM/LOAD/FPP INTERFACE 

BGNSEG STAE EXIT ROUTINE 
01 SAVE REGS 
01 GET A {FIRST SAVE AREA) 
01 GET A(OPPXUTIL WGRKARE A ) 

01 IF DTA BSE CPERTN WAS DONE, THEN 

02 LINK TO DPPXCBIN TO BUILC ONLINE TABLES 
01 END IF 

01 SET NO RETRY 

01 RESTORE REGS 0-12 

ENDSEG ST AE EX I T STAE EXIT ROUTINE 

BGNSEG PRINT ROUTINE 
01 FORMAT MESSAGE 
01 PUT A LINE TO SYSPRINT 

ENDSEG PRINT PRINT ROUTINE 

BGNSEG WRONG PARAMETER ROUTINE 

01 IF PAR* L EN NE ZERO,THEN 

02 MOVE ENTITY TO OUTPUT LINE 
01 END IF 

01 PRINT WRONG PARAMETER MSG 
01 SET INVALID SWITCH 

ENDSEG WP ARM WRONG PARAMETER ROUTINE 

BGNSEG NOT FIRST TIME FOR KEYWORD ROUTINE 

01 IF KEYWORD LEN NE ZERO, THEN 

02 MOVE KEYWORD TC OUTPUT LINE 
01 END IF 

01 PRINT MULTIPLE KEYWORD MSG 
01 SET INVALID SWITCH 

ENDSEG NOTFST NCT FIRST TIME FOR KEYWORD ROUTINE 

BGNSEG WRONG KEYWORD ROUTINE 

01 IF KEYWORD LENGTH NE ZERO, THEN 

02 MOVE KEYWORD TO OUTPUT LINE 
01 END IF 

01 PRINT WRONG KEYWORD MSG 
01 SET INVALID SWITCH 

ENDSEG WKEYW WRONG KEYWORD RCUTINE 

BGNSEG NAME VALIDITY CHECK ROUTINE 

01 IF NAME LEN NE ZERO, THEN 

02 IF LENGTH GT 8,CR 

02 IF FIRST CHAR NCT ALPHA, OR 

02 IF CHAR NOT WITHIN X»C0 a - X f FF»,OR 

02 IF CHAR NOT ALPHANUMERIC, THEN 

03 PRINT PARAMETER IN ERROR MSG 
03 SET INVALID SWITCH 



( 
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Figure 3-165 (10 of 10). DPPXUTIL 



02 ELSE 

03 STORE LENGTH 
03 SAVE NAME 

02 END IF ALPHA 



01 END I F PREVENT 

ENDSEG NAMCHK NAME VALIDITY CHECK ROUTINE 

BGNSEG SYSIN END-OF-D AT A ROUTINE 
01 PRINT EOF CN SYSIN MSG 
01 SET EOF CN SYSIN INDICATOR 

ENDSEG EODAD SYSIN END-OF—CAT A ROUTINE 

BGNSEG INPUT END— OF— DAT A ROUTINE 
01 PRINT SEQ DATA SET EOF MSG 

ENDSEG SEQEODAD INPUT END— OF— DAT A ROUTINE 



Figure 3-166. DPPZSAMP 

DPPZSAMP MAIN SEGMENT 'SAMPLE PROGRAM* 



01 PATCH DPPSAMPl 

01 IF PATCH SUCCESSFUL THEN 

02 ISSUE SYSTEM MESSAGE 68 
01 END I F 

01 GET ARRAY DPPZSAMP FROM CAT A BASE 

01 IF ARRAY RETRIEVED THEN 

02 DISPLAY CONTENTS OF ARRAY VIA MESSAGE 66 
02 LOG OUT ARRAY DPPZSAMP 

02 IF ARRAY LOGGED THEN 

03 ISSUE SYSTEM MESSAGE 68 
03 LOG IN ARRAY DPPZSAMP 

03 IF ARRAY LOGGED IN THEN 

04 DISPLAY CONTENTS OF ARRAY VIA MESSAGE 66 
04 PLACE LOGGED IN ARRAY IN DATA BASE 

04 IF LOGGED IN ARRAY PLACE IN CATA BASE THEN 

05 ISSUE SYSTEM MESSAGE 68 
04 END IF 

03 ENDIF 

02 ENDIF 

01 END I F 

01 GET ITEM DPPSAMP2 FRCM CATA BASE 

01 IF ITEM RETRIEVED THEN 

02 ISSUE SYSTEM MESSAGE 69 
02 PLACE ITEM IN CATA BASE 

02 IF ITEM DPPSAMP2 PLACED IN DATA BASE THEN 

03 ISSUE SYSTEM MESSAGE 68 
02 ENDIF 

01 ENDIF 

01 ISSUE PT I ME MACRO TO CAUSE TASK CPPSAMP1 TO BE PATCHED 3 TIMES AT 

02 1 SECCNO INTERVALS 

01 IF PT I ME MACRO SUCCESSFUL THEN 

02 ISSUE SYSTEM MESSAGE 68 
01 ENDIF 



ENDSEGMENT DPPZSAMP 
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Figure 3-167 (1 of 2). DPTCSVC1 

IF NO INVALID ADDRESS FOUND IN LIST 
01 IF ThERE ARE ANY BLKS GN CHAIN 



02 IF NOT - FALL THRU 

03 IF TYPE = ADD 

04 IF CPOS = LAST 

05 WHILE LOOP TILL LAST BLK IN CHN FOUND 
05 BGNWHILE 

05 ENDDO 

04 ELSE 

05 GET ADDR OF CHAINORG FULLWORD 
05 CHAIN NEW BLK AT BEGINNING 

04 END IF 

03 ELSE 

04 IF FRST BLK= RMV BLK 

05 GET ADDR CF CHAINORG FULLWORD 
05 POINT ORG TO BLK AFTER RMV BLK 

04 ELSE 

05 STRTSRCH LOOP TILL END OF CHAIN FCUND 

05 EXITIF EXIT FROM SEARCH IF RMV BLK FND 

06 GET PTR BLOCK FOLLOWING ONE TO 
06 * BE REMOVED 

06 DECHAIN THE BLOCK 

05 ORELSE 

06 UPDATE CURRENT BLK PTR 
05 BGNWHILE 

05 ENDLOOP 

06 INDICATE ECB PREVIOUSLY POSTED 
05 ENDSRCH 

04 ENDIF 

03 END IF 

02 ELSE 

03 GET ORDER WORO OFFSET 

03 GET ORDER WORD FOR BLK TO ADD 

03 SEE IF NEW BLK TO BE FIRST 

03 IF ORDER WORD LT ORDER WORD OF NXT BLK 

04 POINT ORG AT NEW BLK 

04 POINT NEW BLK TO REST OF CHAIN 

03 ELSE 

04 STRTSRCH LOOP TILL END OF CHAIN 

04 EXITIF EXIT IF NEXT GT CURRENT 

05 CHAIN NEW BLOCK IN CHAIN 

04 ORELSE 

05 UPDATE CURRENT BLK PTR 
04 BGNWHILE 

04 ENOLCGP 

05 CHAIN NEW BLK AT END 

05 ZERO NEXT PTR IN NEW BLK 

04 ENDSRCH 

03 ENDIF 

02 END I F 
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Figure 3-167 (2 of 2). DPTCSVC1 



01 
02 
03 
02 
03 
02 
01 
01 



ELSE 

IF BLOCK TO BE ADDED 



CHAIN THE NEW BLK AT BEGINNING 
ELSE 



SET CCNO C0DE=4 - BLK NOT FOUND 
END IF 



END IF 



02 
02 
03 
04 
04 
03 
04 
03 
02 



IF NO ERRORS FOUND 
GET THE ECB ADDR 
IF AN ECB IS TO BE POSTED 



IF THE ECB HAS NOT ALREADY BEEN POSTEDEN 



GET POST BR ENTRY ACORESS 



BRANCH TO POST TO HAVE ECB POSTD 



ELSE 



INDICATE ECB PREVIOUSLY POSTED 



ENDIF 
END IF 



01 ENDIF 
ENDIF 



Figure 3-168. DPTDLMP1 

BGNSEG DPTDLMPi - TCBX-LCB USER SCAN 

01 WHILE MORE TCBX'S ARE CHAINED 

02 GET TCBX-LCB CHAIN ORIGIN 

02 WHILE MORE LCB'S ARE CHAINED 

03 UNTIL ALL MODULE NAMES EXAMINED 

04 IF NAME EQUAL TO LCBEPNAM 

05 SET FLAG LOAD MODULE PURGE REO 

05 IF MODULE IS CURRENTLY EXECUTING 

06 SET UP AN ECB FCR DPPTPMON 
06 CLEAR THE ECB 

06 INCREMENT ECB COUNT 

05 ENDIF MOOULE IS EXECUTING 

05 CAUSE EXIT CF BXLE LOOP 

04 ENDIF NAME EQ 

03 ENDDO UNTIL BXLE 

02 BGNWHILE 

03 GET ADDR OF NEXT LCB IN CHAIN 
02 ENDOO WHILE LCB 

01 BGNWHILE 

02 GET ADDR OF NEXT TCBX IN CHAIN 
01 ENDDC WHILE TCBX 

ENDSEG DPTDLMPi 
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Figure 3-169. DPTDI M DO 

BGnSEG DPT0LMP2 - TCBX-LCB PURGE SCAN 



01 WHILE MORE TCBX'S ARE CHAINED 

02 GET TCBX-LCB CHAIN ORIGIN 

02 TURN OFF INTERNAL DELETE FLAG 

02 WHILE MCRE LCB«S ARE CHAINED 

03 IF ST I MER HAS NOT EXPIRED 

04 IF PURGE REQUESTED 

05 IF NOT LOADED BY THIS TASK 

06 TURN OFF PURGE PEQUEST FLAG 
06 SET LCB UNRESOLVED 

05 ELSE - IF LOAOED BY THIS TASK 

06 IF MODULE IN STORAGE 

07 SET INTERNAL CELETE FLAG 

06 ELSE 

07 TURN OFF PURGE FLAG 
06 ENDIF 

05 ENDIF NCT LOADED BY THIS TASK 

04 ENDIF NO PURGE REO 

03 ELSE - IF STIVER HAS EXPIRED 

04 TURN OFF PURGE FLAG IN THE LCB 
03 ENDIF ST I MER EXPIREC 

02 BGNWHILE 

03 GET AODR OF NEXT LCB IN CHAIN 
02 ENDDO WHILE LCB 

02 IF INTERNAL DELETE FLAG SET 

03 CREATE AN IRB 
03 SET UP AN ECB 
03 CLEAR THE ECB 

03 INCREMENT ECB COUNT 

03 INITIALIZE IQE 

03 STORE IRB ADCR INTO IQE 

03 MOVE TCB ADDR INTO IQE 

03 CALL STAGE 2 EXIT EFFECTOR 

02 ENDIF PMONDEL 

01 BGNWHILE 

02 GET A DDR OF NEXT TCBX IN CHAIN 
01 ENDDO WHILE TCBX 



ENDSEG CPTDLMP2 
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Figure 3-173 (2 of 2). DPTDSVC1 



05 SET TCBXNAME NCT FCUND FLAG 

04 ENDSRCH 

04 IF PTN=FIND WAS SPECIFIED 

05 SWITCH PARTITIONS 
04 END IF 

03 ENDDO UNTIL 0SVCLO0P 

03 IF TCBXNAME NCT FOUND FLAG SET 

04 SET RC FOR TCBXNAME NCT FOUND 
03 END IF 

02 ENDIF RC NZERO 

01 ENDIF NO TCBXNAME 



ENDIF RC ZERO 
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Figure 3-174 (1 of 2). DPTPMON1 



IF ODS WAS INVOKED 
01 EXEC CDS CLEANUP ROUTINE 
END I F 

WHILE WOE'S CHAINED TO TCBXCUWO 
01 TOP WCE BECOMES THE CURRENT 
01 CECHAIN TOP WQE FROM TCBXCUWO 
01 FXEC WQ E-CELETE SVC ROUTINE 

BGNWHILE 

01 GET AODR CF TOP WQE ON TCBXCUWO 

ENDDO WHILE TCBXCUWC NZERO 

WHILE WCE«S CHAINED TO TCBXWQ 
01 TOP WQE BECCMES THE CURRENT 
01 DEC HA IN TOP WQE FROM TCBXWQ 
01 EXEC WQE— CELETE SVC ROUTINE 

BGNWHILE 

01 GET ADOR OF TOP WQE ON TCBXWQ 

ENDDO WHILE TCBXWQ NZERO 

CLEAR CURRENT WCE PC INTER 

GET AODR OF AT-TYPE DUMMY GFBE 

IF DUMMY GFBE DOESN'T POINT AT ITSELF 
01 FREEWA ALL AT-TYPE GETWA AREAS 

END IF 

GET TCBX-LCB CHAIN ORIGIN 

WHILE MORE LCB'S ARE CHAINED TO THE TCBX 

01 IF AN ASSOC LCB IS CN TMCT-LCB CHAIN 

02 DECREMENT USECOUNT IN TMCT-LCB 

02 IF USECCUNT BECCMES ZERC 

03 SET FLAG TO CAUSE DELETE 

03 CAUSE DPPTSMCN TO SCAN LCB«S FOR DELETE 

02 ENDIF USECOUNT ZERO 

01 ENDIF LCB CN TMCT-LCB CHAIN 
BGNWHILE 

01 GET NEXT LCB CN TCBX-LCB CHAIN 
ENDDO 

IF TCBXNAME BLANK - DEPENDENT TASK 
01 GET DEPENOENT TASK CHAIN ORIGIN 

ELSE - INDEPENDENT TASK 
01 GET INDEPENDENT TASK CHAIN ORIGIN 

ENDIF 

STRTSRCH WHILE MORE TCBX'S ARE CHAINED 
EXITIF THIS IS OUR TCBX 
01 DECHAIN TCBX FROM ITS TCBX-CHAIN 
ORELSE 

01 GET NEXT TCBX GN CHAIN 

ENDLOOP - TCBX WAS NOT ON CHAIN 
01 ISSUE MESSAGE CPP016 TCBX NOT FOUND 

ENDSRCH 
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Figure 3-174 (2 of 2). DPTPMON1 

DECREMENT # CF ACTIVE TCBX'S IN TMCT 
IF TMCT #FRE GT DELT #FRE AND 
IF TMCT#ACT ♦ TMCT#f RE GT TMCTflTCB 
01 * THIS TASK HAS TO TERMINATE 
01 SET FLAG TO CAUSE TERMINATION 
01 * DPPTETXR WILL FREE TCB AND TCBX 
ELSE 

01 * LEAVE THE TASK ALIVE 
01 UPDATE # OF FREE TCBX* S IN TMCT 
ENDIF 

IF THIS TASK HAS A SUBTASK 
01 SET FLAG TO CAUSE TERMINATION 
ENDIF 

WHILE MCRE LCB'S ARE CHAINED TO THE TCBX 
01 IF 

01 IF MODULE LCACED BY THIS TASK 

02 DELETE THE MODULE 
01 END IF 

01 DECHAIN THE LCB 
01 CB-FREE THE LCB 
BGNWHILE 

01 GET NEXT LCB CN TCBX-LCB CHAIN 

ENDDO 

IF THIS TASK SHALL NOT TERMINATE 
01 MAKE TCBX LOCK LIKE UNUSED 
01 CHAP THE TASK DOWN TO ZERO PRTY 
01 CLEAR RESOURCE TABLE 
01 CHAIN TCBX TC FREE CHAIN 

ENDIF 
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Figure 3-175. DPTPMON2 

IF NO LOAD MCDULE PURGE REQUESTED AND 
IF NO DELETE REQUESTED 
01 UNTIL ANY DPATCH DC 



02 WHILE MORE WQE'S CHAINED AND 

02 WHILE NO DPATCH U 

03 GET LCB POINTED TO BY NEXT WQE 

03 IF SAME LCB = SAME ROUTINE AS BEFORE 

04 DO DPTPM0N5 - PERFORM WQE-CLEANUP 
04 TOP WQE BECCMES CURRENT 

04 DEC HA IN CURRENT WCE 

04 IF CURRENT QUEUE LENGTH NOT ZERO 

05 DECREMENT CURRENT QUEUE LENGTH 
04 ENOIF CQL NZERO 

04 IF NCT SPECIAL ID 

05 IF PROBL WAS MOVEO INTO WQE 

06 LOAD ADDR OF PROBL IN WQE 

05 ELSE 

06 GET ADDR OF USER'S PROBL 

05 END IF 

05 STORE PROBL ADDR INTO TCBX 

05 SET RC=0 = DON ■ T EXECUTE EPILOG 

05 * NEXT REQUEST IS FOR SAME ROUTINE 

05 RETURN 

04 END IF SPECIAL ID 

03 ELSE - DIFFERENT LCB = DIFFERENT ROUTINE 

04 SET R04 = EXECUTE EPILOG 

04 * NEXT REQUEST IS FOR DIFFERENT ROUTINE 

04 RETURN 

03 ENDIF SAME LCB 

02 END DO WHILE WQE PRESENT AND NO DPATCH U 

02 IF NO DPATCH OF ANY KIND 

03 IF EC B AOCR WAS SPECIFIED WITH PATCH 

04 POST USER'S ECB 

04 CLEAR ECB ADDR FRCM WQE TO 

04 * PREVENT A SECOND POST CUT OF DPPTWQDL 

03 ENDIF 

03 SET FLAG TASK DORMANT 

03 V»A IT FOR NEXT PATCH, DPATCH OR REPATCH 

03 TURN OFF TASK DORMANT FLAG 

02 ENDIF 



01 ENDDC UNTIL ANY DPATCH 

END IF NC PURGE AND NO DELETE 

SET RC=4 = EXECUTE EPILOG 

* BECAUSE MCDULE IS TO BE DELETED 

RETURN 



( 
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Figure 3-176 (1 of 2). DPTPMON3 



BGNSEG DPTPPCN3 - USER ROUTINE LOAD 



01 CLEAR RETURN CODE REG 

01 GET LCB PCINTED TC BY CURRENT WQE 

01 IF EP NAME BLANKS AND 

01 IF SPECIAL ID SPECIFIED 

02 SET DELETE FLAG TO CAUSE 
02 * DFPTWQDL TO FREE THE LCB 

01 ELSE 

02 IF LOAD MODULE PURGE RECUESTED 

03 WAIT FOR DPPTDLMP 
03 CLEAR THE ECB 

02 END IF 

02 IF EP OF THIS LCB NOT RESOLVED 

03 GET FIRST LCB ON TMCT-LCB OAIN 

03 STRTSRCH WHILE MORE LCB'S ARE CHAINED 

03 EXITIF LCB WITH SAME NAME FCUND 

04 IF LOAD MCCULE PURGE REQUC 

05 WAIT FCR DPPTDLMP 
05 CLEAR THE ECB 

04 END IF 

04 IF LCB MARKED FOR DELETE 

05 TURN FLAG OFF TO SAVE IT 
04 ENDIF 

04 CHAIN TCBX-LCB TO TMCT-LCB 

04 GET ENTRY POINT ADDR FRCM TMCT-LCB 

04 GET ATTRIBUTE BYTE 

04 CLEAR UNRESOLVED FLAG 

04 INCREMENT USECOUNT IN TMCT-LCB 

03 ORELSE 

04 GET NEXT LCB IN TMCT-LCB CHAIN 

03 ENDLOOP - EP NAME NCT FCUND ON TMCT-LCB CHAIN 

04 BLDL TABLE-GET 

04 CLEAR GOTTEN VIRTUAL STORAGE 

04 STORE AODR CF BLDL TBL INTO LCB 

04 MOVE FFLL FIELD INTO BLCL TABLE 

04 MOVE EP NAME INTO BLDL TABLE 

04 ISSUE BLDL SVC 

04 IF NZERO RETURN CODE PASSED BY BLDL 

05 INSERT ECB CC FOR BLDL FAILED 
05 SET DELETE FLAG TO CAUSE 

05 * DPPTWQDL TO FREE THE LCB 

05 IF MEMBER NOT FCUNO 

06 LOAD MSG # FOR DPP014 

05 ELSE - I/C ERROR 

06 LOAD MSG # FOR CPP015 
05 ENDIF 
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Figure 3-176 (2 of 2). DPTPM0N3 



05 ISSUE MESSAGE 

04 ELSE - BLDL WAS SUCCESSFUL 

05 COPY ATTRIBUTES FROM 8L0L INTO LCB 
05 IF MODULE IS REENTRANT AND 

05 IF DELETE WAS NOT SPECIFIED 

06 SET FLAG LCB NEEDS LOAD BY SMCN 
06 INCICATE LOAD REQEST TO DPPTSMON 
06 CHAIN TCBX TO SMON»S REQ CHAIN 
06 POST DPPTSMON TC LOAD THE MODULE 
06 WAIT UNTIL PGSTEO BY DPPTSMON 

06 CLEAR PCSTBIT 

05 ENDIF RENT AND NO DEL 

05 IF LCB STILL UNRESOLVED 

06 LOAD THE MOOULE HERE 

06 STORE EP ADDRESS INTO LCB 

06 CLE4R UNRESOLVED— FL AG 

05 ENDIF 

04 END IF BLDL 

04 BLDL TABLE-FREE 

04 CLEAR IT'S ADDRESS FROM THE LCB 

03 ENDSRCH 

02 ENDIF LCB UNRESCLVED 

01 ENDIF EP NAME BLANK AND SPEC ID 



ENDSEG DPTPKCN3 
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Figure 3-177. DPTPMON4 

BGNSEG CPTPMCN4 - USER ROUTINE EXEC 



01 IF EP NAME NOT BLANKS 

02 IF ZERO RETURN CODE FRCP DPT FM0N3 

03 IF GETWA AREA TO BE TRANSFERED 

04 IF 

04 END IF 

03 END IF 

03 IF NOT SPECIAL ID 

04 IF PROBL WAS MOVED INTO WQE 

05 LCAC AODR OF PROBL IN WQE 

04 ELSE 

05 GET ADDR OF USER'S PROBL 
04 END IF 

04 STCRE PROBL ADCR INTO TCBX 

04 GET PSW PATTERN FOR USER EXECUTION 

04 LOAD ACCR FOR USER PARM INTERFACE 

04 LOAD ENTRY POINT ADCR 

04 STORE PMON'S REGS IN HIS SA 

04 GCt EXECUTE USERS ROUTINE 

04 

04 GET ADDR OF PMON'S SAVE AREA 

04 RELCAD PMCN'S REGS FROM HIS SA 

04 L CAD RETURN CODE FROM USER EXEC 

04 GET SVC STATUS 

03 END IF SPECIAL ID 

03 IF MODULE IS NOT REUSABLE OR 

03 IF DELETE WAS SPECIFIED AND 

03 IF MODULE WAS LOADED BY THIS TASK 

04 SET LCB UNRESOLVED 

04 CLEAR EP ADDRESS IN LCB 

04 DELETE THE MODULE 

03 END IF 

02 END IF RC ZERO 

01 END IF EP fsAME BLANKS 

01 STORE ECB COMPLETION CODE 



ENDSEG CPTPM0N4 
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Figure 3-178. DPTPMON5 

BGNSEG DP f PMON5 - WQE-CLEANUP 

01 GET ADDR OF LCB 

Oi IF LOAD MCDULE PURGE RECU EST E C AND 

01 IF ECB ADDR SUPPLIED BY DPPTDLMP 

02 POST CPPTCLMP'S ECB 

02 CLEAR ECB ADDR FRCM LCB 

01 END IF LCBFLMP 

01 GET ADDR CF AP-TYPE DUMMY GFBE 

01 IF DUMMY GFBE DOESN'T POINT AT ITSELF 

02 FREEWA ALL AP-TYPE GETWA AREAS 
01 END IF 

01 EXEC WQ E-CELETE SVC ROUTINE 

01 RESET MQ ACTIVE FLAG 
ENDSEG CPTPM0N5 

FIGURE 3-178.1. DPTPM0N6 

BGNSEG DPTPM0N6 - QP/QH INTERFACE 

01 IF THIS QP IS BEING HELD 

02 FORCE SEARCH FOR ANOTHER QP TO SERVICE OLD QH 

01 ELSE 

02 UNTIL AVAILABLE WORK FOUND ON A QH OR 

02 UNTIL NO MORE QH'S 

03 MOVE CLEAN UP WORK QUEUES TO QP FROM QH 

03 MOVE AVAILABLE WORK TO QP WORK QUEUE CHAIN 

02 ENDDO 

02 QH IS SEQUENTIAL THEN 

03 SET SEQUENTIAL SELECTED BIT 
03 END IF 

02 IF OLD QH IS NOT THE NEW QH AND 

02 IF WORK AVAILABLE ON OLD QH 

03 UNTIL AVAILABLE QP IS FOUND 
Ok POST QP TO PROCESS OLD QH 
03 • ENDDO 

02 END IF 

01 END IF 

ENDSEG DPTPMON6 
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Figure 3-179 (1 of 2). DPTPSVC1 

CLEAR RETURN CODE REGISTER 
USE OPPTSMON'S TCBX 



IF PROBL ADDR INVALID OR 
IF PRCBL LENGTH LT 4 
Oi SET RC FOR INVALIC PROBL 
ELSE 

01 IF SUPL ADDR INVALID 

02 SET RC FOR INVALID SUPL 

01 ELSE 

02 IF TCBX SPECIFIED 

03 IF NO 

04 IF NO 

05 SET RC FOR INVALID PTN 

04 ELSE 

05 IF 

06 SET RC FOR INVALID SUPL 
05 END IF 

04 END IF 

03 END IF 

02 END IF 

02 IF 

03 IF ECB OR TCBX ADDR INVALID 

04 SET RC FOR INVALID SUPL 

03 ELSE 

04 CLEAR PSVC INTERNAL FLAGS 
04 IF PTN=SLAVE REQUESTED AND 

04 IF NOT RUNNING TWO-PARTN-OP 

05 SET RC FOR INVALID PTN 

04 ELSE 

05 SET FIND-LOOP COUNTER TO 1 

05 IF RUNNING TWO— PART N— OP 

06 IF PTN*FIND 

07 SET INTERNAL FIND FLAG 

07 SET FIND-LOOP COUNTER TO 2 

06 ELSE 

07 IF PTN=MASTER OR SLAVE SPEC 

08 IF TARGET PARTN NE OWN PART N 

09 SET OTHER PARTN FLAG 
08 END IF 

07 END IF 

06 ENDIF 
05 ENDIF 

05 IF FREE=P WAS SPECIFIED 

06 USE PROBL ADDR AND LENGTH 

05 ELSE 

06 USE SPEC ADDR AND LENGTH 
05 ENDIF 

05 IF TARGET IS OTHER PARTITION 

06 SEE IF OTHER PTN IS STILL ACTIVE 

06 IF IT'S ACTIVE 

07 SWITCH TO CTHER PARTITION 
07 GET ITS SCVT AND TMCT ACDR 
06 ENDIF 

05 ENDIF 

05 IF NO ERRORS YET 

06 IF FREE= WAS SPECIFIED 

07 IF TARGET IS CTHER PTN AND 
07 IF REPATCH OPTION SPEC 
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Figure 3-179 (2 of 2). DPTPSVC1 



08 SET RC FCR INVALID FREE 

07 ELSE 

08 CHECK BEGIN ADDR OF FREE AREA 

08 IF LENGTH SPECIFIED 

09 CHECK END ADDR OF FREE AREA 
08 END IF 

08 IF FREE AREA IS INVALID 

09 SET RC FOR INVALID FREE 

08 ELSE 

09 IF FREE ADOR NOT ON DW BOUNDARY 

09 IF AND NOT FREEWA REQUEST 

10 SET RC FOR INVALID FREE 

09 ELSE 

10 STRTSRCH 

10 EXITIF *REA TO FREE IS 

10 EXITIF A GETWA AREA 

11 IF 

11 IF USER 010 GOOD 

12 IF COULD NOT TRANSFER IT 
12 END IF 

11 ELSE 

11 ENDIF 

10 ENDLOOP 

11 IF USER IS ASKING US 
11 IF TO TRANSFER GETMAIN 
11 ENDIF 

10 ENCSRCH 

09 ENDIF DW BOUNCARY 

08 ENDIF FREE AREA WITHIN PARTITION 

07 ENDIF OTHER PTN AND REPATCH 

06 ENDIF FREE SPECIFIED 

05 ENDIF 

04 END IF SLAVE REQUESTED BUT NOT INIT 

03 ENDIF ECB OR TCBX INVALID 

02 END IF 



01 END IF SUPL INVALID 
END IF PROBL INVALID 

Figure 3-180. DPTPSVC2 

BGNSEG ADRCHK - ADDRESS CHECK (OWN ♦ OTHER PTN) 
01 IF INPUT NCT AN ADDR WITHIN OWN PTN 



02 IF TWO-PAPTN-OP INITIALIZED 

03 IF INPUT NCT AN ADDR WITHIN OTHER PTN 

04 SET NCNZERO RETURN CODE 
03 ENDIF 

02 ELSE 

03 SET NCNZERO RETURN CODE 
02 FNDIF SCVTF2PT 



01 END IF 

ENDSEG ADRCHK 



BGNSEG ADRCHK 1 - ACTRESS CHECK (OWN PTN) 

01 IF INPUT NCT AN ACDR WITHIN OWN PTN 

02 SET NCNZERO RETURN CODE 
01 ENDIF 

ENDSEG ADRCHK 1 



( 
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Figure 3-181 (1 of 3). DPTPSVC3 

BGNSEG DP TP SVC 3 - BUILD WQE AND LCB 



01 IF TASK IS BEING REMOVED (DPATCHEC) 

02 SET RETURN CODE D PATCH IN PROGRESS 

01 ELSE 

02 IF NOT QPOS=DPATCH 

03 IF LIMIT QUEUE LENGTH NOT ZERO 

04 IF CURRENT QUEUE LENGTH GE LIMIT 

05 IF CPOS=FIRST 

06 SET RC WOE LOST WITH QPOS=FIRST 

05 ELSE 

06 SET RC FOR WORK QUEUE FULL 
05 END IF 

04 ENCIF CQL GE LQL 

03 ELSE - LIMIT CUEUE LENGTH IS ZERO 

04 IF CURRENT WQ ACTIVE 

05 SET RC FOR WORK QUEUE FULL 

04 ELSE 

05 SET CURRENT WQ ACTIVE FLAG 
04 END IF 

03 ENDIF LQL ZERO 

02 ELSE - CPOS OPATCH 

03 IF DPATCH CUEUE IS EMPTY <HAS 1 SLOT ONLY I 

04 GET DPATCH WQ ORIGIN 

03 ELSE 

04 SET RC FOR DPATCH QUEUE FULL 
03 ENDIF 

02 ENDIF QPOS DPATCH 

02 IF FR EE = P WAS SPECIFIED 

03 GET ADDR AND LENGTH FROM PROBL 

02 ELSE 

03 GET ACDR ANC LENGTH FPCM SUPL 
02 ENDIF 

02 IF RETURN CODE LOW 

03 CB-GET FOR WQ— ELEMENT 

03 IF CB-GET PASSED NCNZERO RETURN CODE 

04 SET RC FCR NO CB-GET STORAGE 

03 ELSE 

04 FILL IN WQE FIELDS 

04 STORE FREE LENGTH AND ACDR 

04 MOVE FLAGS FROM SUPL 

04 MOVE USERS ECB ADDR FPCM SUPL 

04 MOVE USER'S ID FRCM PROBL 

04 IF PROBL LIST LE 8 BYTES LONG 

05 MOVE PROBL LIST INTO WQE 

05 SET FLAG PARML 1ST IS IN WQE 

04 ELSE 

05 STORE PROBL ADCR INTO WQE 
04 END IF 



LICENSED MATERIAL - PROPERTY OF IBM 
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04 STRTSRCH WHILE MORE LCBS CHAINED 

04 EXITIF £P NAME FOUND 

04 ORELSE 

04 ENDLOGP - NOT FOUNO 

05 C8—GET FOR LCB 

05 IF CB— GET PASSED NONZERO RETURN CODE 

06 C8-FR EE THE WQ- ELEMENT 

06 SET RC FOR NO Cfi-GET STORAGE 

05 ELSE 

06 CHAIN AT END OF TCBX-LCB CHAIN 
06 SET LCB UNRESCLVED 

06 MOVE EP NAME INTO LCB 

05 END IF LCB GET 

04 ENDSRCH LC8 CHAIN 

04 IF RETURN CCDE LOW 

05 STORE CUR OWN TCB ACCR INTO WQE 
05 STORE TC8X ADDR INTO WQE 

05 STORE LCB ADDR INTO WQE 

05 INCREMENT TCBX-LCB REQUEST COUNT 

04 END IF 

04 IF RETURN CCDE LOW 

05 IF QPOS=DPATCH 

06 STORE WQE ADDR INTO TCBXDWQ 

05 ELSE - NGT QPOS=0PATCH 

06 WHILE MORE WOE'S ARE CHAINED 

07 KEEP ADOR CF PREVIOUS WQ 
07 KEEP ADOR OF THIS WQ 

06 BGNWHILE 

07 GET ADOR OF NEXT WCE IN CHAIN 

06 ENDDO 

06 IF QUEUE LENGTH NOT ZERO 

07 IF CURRENT QUEUE LENGTH LT LIMIT 

08 INCREMENT CURRENT QUEUE LENGTH 

08 IF HIWATER LT CURRENT Q LENGTH 

09 STORE CURRENT AS HIWATER 
08 ENDIF 

07 ELSE - CURRENT QUEUE LENGTH NOT LESS 

08 DEC HA I N THE LOST WQE 

08 PUT ECB CCMPL CODE IN WQE 

08 GET ORIGIN CF CLEANUP-WQ 

08 WHILE MORE WQE'S ARE CHAINED 

09 KEEP ADDR OF THIS WQE 

08 BGNWHILE 

09 GET ADDR OF NEXT WQE IN CHAIN 

08 ENDDO 

08 CHAIN LOST WQE TO CLEANUP C 

07 ENDIF CQL LT LCL 

06 ENDIF LQL NZERO 
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Figure 3-181 (3 of 3). DPTPSVC3 



06 
07 
06 
07 
06 
05 
05 
06 
06 
05 
06 
06 
05 
05 
06 
05 
04 
03 
02 



END I F RC LOW 
ENDIF WQ GET 
END IF RC LOW 



LOAC ACDR CF ASSOC PMON'S TCB 
END I F 

IF EC8 NOT POSTED 



END IF 
ENDIF CPOS DPATCH 
IF CHAP PEQUESTEC BY CPTPSVC4 



POST ECB (DPPTSMON CR DPPTPMON) 

END IF 



LOAC ADCR OF SM0N»S TCB = JOBSTEP 
ELSE - NO CHAP RE Q - TASK EXISTED ALREADY 



LOAD ECB ADDR TO POST DPPTPMON 



LOAD ECB ADDR TO POST DPPTSMON 



ELSE - NOT QPOS FIRST 



IF CPOS=FIRST 



CHAIN THIS WQE AT BOTTOM 



CHAIN THIS WOE AT TOP OF QUEUE 



01 END IF CPATCH IN PROGRESS 
EN OS EG CPTPSVC3 



Figure 3-182 (1 of 2). DPTPSVC4 

BGNSEG DPTPSVC4 - BUILD TCBX 

01 IF PRTY REFERENCE TCBXNAME SPECIFIED 

02 GET INDEPENDENT TASK CHAIN ORIGIN 
02 STPTSRCH WHILE MGRE TCBX«S CHAINED 
02 EXITIF PRTY REFERENCE TCBXNAME FOUND 

02 ORELSE 

03 GET ADDR CF NEXT TCBX IN CHAIN 

02 ENDLOOP - TCBX NAME NOT FOUND ON CHAIN 

03 SET RC FOR PRTY TCBXNAME NOT FOUND 
02 ENDSRCH 

01 ELSE - NO PRTY TCBXNAME SPEC 

02 LOAD TCBUSER FIELD OF CURRENT TASK 
01 ENDIF 

01 IF RETURN CODE LOW 

02 IF PATCHOR DOESN'T HAVE A TCBX 

03 GET BASE PRTY VALUE FRCM TCB 

02 ELSE 

03 GET BASE PRTY VALUE FROM TCBX 
02 END IF 

02 GET FIRST TCBX FROM TMCTFREEj CHAIN 

02 IF THERE IS CNE 

03 DECHAIN IT FRCM FREECHAIN 

03 RESET IT'S HIWATER QUEUE LENGTH 

03 DECREMENT # OF FREE TCBX'S 
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Figure 3-182 (2 of 2). DPTPSVC4 



02 ELSE - NO FREE TCBX AVAILABLE 

03 CB-GET FOR TCex 

03 IF NCNZERO RETURN CODE PASSED FROM CBGET 

04 SET RC FOR NO CB-GET STORAGE 

03 ELSE 

04 SET FLAG TCB NEEDED 

04 INCREMENT HI WAT ER * OF TCBX'S 

04 MOVE XCVT ADDR INTO TCBX 

04 INITIALIZE GETWA/FREEWA ORIGINS 

03 END IF TCBX GET 

02 ENDIF TCBX CN FREECHAIN 

02 IF RETURN CODE LOW 

03 MCVE IN TCBXNAME 

03 KCVE IN QUEUE LENGTH 

03 IF SUPL IS AN UNMODIFIED REPL 

04 USE ABSOLUTE PRTY F POM REPL 

03 ELSE - SUPL OR MODIFIED REPL 

04 CALC ABSOLUTE PRTY VALUE 
03 ENDIF 

03 IF REQUESTED PRTY GT LIMIT PRTY 

04 USE LIMIT PRTY INSTEAD 

03 ELSE 

04 USE REQUESTED PRTY 
03 END IF 

03 GET TMCTSMON REQUEST CHAIN ORIGIN 

03 STRTSRCH WHILE MORE TCBX 9 S CHAINED 

03 EXITIF THAT TCBX IS ALREADY QUEUED 

03 ORELSE 

04 GET ADDR CF NEXT TCBX IN CHAIN 

03 ENDLOCP - NCT FOUND ON CHAIN 

04 CHAIN TCBX TO SMON"S REQ CHAIN 
03 ENDSRCH 

03 DO DPTPSVC3 - BUILD WQE ANC LCB 

03 IF RETURN CODE LOW 

04 INCREMENT # OF ACTIVE TCBX'S 

03 ELSE - DPTPSVC3 WAS NCT SUCCESSFUL 

04 CLEAR TCBXNAME 

04 CLEAR QUEUE LENGTH 

04 CHAIN TCBX TO FREE CHAIN 

04 RESET CFAP FLAG FOR ZERO PRTY 

04 INCREMENT H OF FREE TCBX'S 

03 END IF 

02 END IF RC LOW 



01 END IF RC LOW 
ENDSEG DPTPSVC4 
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Figure 3-183. DPTPSVC5 

BGNSEG CPTPSVC5 - DETERMINE IF OTHER PTN IS STILL ACTIVE 

01 LOAD OTHER PTN'S TCB ADDRESS F POM SCVT 

01 IF TCB ACCRESS IS ZERC OP 

01 IF CTFER TCB IS ABENDING 

02 SET ERPOR RETURN CODE 

01 ELSE 

02 IF IT'S NCT JOB STEP 

03 SET ERROR RETURN CODE 
03 TURN OFF TWO PTN FLAGS 
02 END I F 

01 ENCIF 

ENDS EG DPTPSVC5 

Figure 3-184. DPTSM0N1 

IF LCAC RECUEST FLAG SET 

01 GET TCRX-LCR CHAIN ORIGIN 

01 STRTSRCH WHILE MCRE LCB'S ON TCBX CHAIN 

01 EXITIF LCB WITH LCAD RECUEST FOUND 

02 GET TMCT-LCB CHAIN ORIGIN 

02 STRTSRCH WHILE MORE LCB'S ON CHAIN 

02 FXITIF LCB WITH SAME NAME 

03 STORE TMCT-LCB ADDR INTO TCBX-LCB 

03 COPY EP ADCR FROM TMCT-LCB TO TCBX-LCB 

03 CCPY ATTRIBUTE BYTE 

03 CLEAR FLAGS 

03 INCREMENT USECOUNT IN TMCT-LCB 

02 ORELSE 

03 GET NEXT LCB CN TMCT-LCB CHAIN 

02 ENDLOOP - NCT FCUND ON TMCT-LCB CHAIN 

03 CB-GHT FOR LCB 

03 IF CB-GET RETURNED ZERC RETURN CODE 

04 STORE TMCT-LCB ADDR INTO TCBX-LCB 
04 USE BLOL-LIST GOTTEN BY CPPTPMCN 
04 LOAD THE MODULE 

04 STORE EP-ADCRESS INTO TCEX-LCB 

04 CLEAR FLAGS FPCM TCBX-LCB 

04 CHAIN NEW LCB TO TMCT-LCE CHAIN 

04 SET FLAG LCB CN TMCT CHAIN 

04 CCPY EP ADCR * NAME INTC TMCT-LCB 

04 COPY ATTRIBUTES INTO TMCT-LCB 

04 INCREMENT USECOUNT IN TMCT-LCB 

03 ENDIF CBGET ZERO RETCODE 

02 ENDSRCH TMCT-LCB CHAIN 

01 ORELSE 

02 GET NEXT LCB CN TCBX-LCB CHAIN 

01 ENDLOCP - NC LCAD RECUEST FOUND ON TCBX-LCB CHAIN 

02 ISSUE MESSAGE DPP017 - NO LCAD REQ FOLND 
01 ENDSRCH TCBX-LCB CHAIN 

01 CLEAR LOAC REQUEST FLAG FPCM THE TCBX 

01 POST CPPTPMON TO RESUME PROCESSING 
END I F LCAD PEQ 
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Figure 3-185. DPTWSVC1 

DPThSVCl - INCLUDED SEGMENT - GETWA BLOCK GET ROUTINE 

GET CURRENT * FREE BLOCKS 

IF THERE ARE BLOCKS AVAILABLE 
01 FIND A GFCB WITH BLOCKS AVAILABLE 
01 TURN CFF GFCB'S ALL BLKS FREE FLG 
01 DECREMENT THE GFCB'S FREE COUNT 
01 GET AODR CF FREE GFBE 

01 ALLOCATE GF8E AND TAKE IT OFF THE FREE CHAIN 
01 UPDATE FREELIST PCINTER 
01 ALLOCATE THE GFBE 

01 CHAIN THE ALLOCATED GFBE TO THE PROPER CHAIN - AT,AP,OR PC 
ELSE 

01 PASS A NEGATIVE RETURN CCCE 

01 GET TYPE AND LENGTH CODES IN HI-ORD BYTE REG I 
ENDIF 



Figure 3-186. DPTWSVC3 

DPTUSVC3 - INCLUDED SEGMENT - BRANCH ENTRY ROUTINE 

WHILE NEXT PCINTER IS ZERO - DO 

01 GET ASSOCIATED GFMB'S ID 

01 10 X GFMBLNTH = GFMB OFFSET 

01 CALC ADOR OF ASSOCIATED GFMB 

01 GET ASSOC I AT EC GFCB ADDR 

01 LOCATE THE GFCB TO WHICH THIS GFBE BELCNGS 

01 INCREMENT THE GFCB FREE CCUNT 

01 IF NOT INITIAL ALLOCATION 

02 IF ALL BLCCKS IN THIS GFCB ARE FREE 

03 TURN CN THE ALL FREE FLAG 

03 IF GFCB IS NCT LAST ON TFE CHAIN 

04 MOVE THE GFCB TO THE END OF THE GFMB CHAIN 
03 ENDIF 

02 END I F 

01 END I F 

01 TURN OFF ALLOCATED BIT 

01 GET PTR TC NEXT GFBE CN CHAIN 

01 GET PTR TO FIRST FREE GFBE 

01 CLEAR HI-CROER BYTE (ALLOCBIT) 

01 RETURN CURRENT GFBE TO FREE CHN 

01 CCMPLETE FREE CHAIN 

01 GET FREE CCUNT AND 

01 INCREMENT IT AN C 

01 RESTORE THE INCREMENTED CCUNT 

ENDDO 

RETURN 
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Figure 3-187. DPXDBIN1 

DPXDBIM-INCLUDEC SEGMENT OBTAIN CORE FOR ilNIT DATA 

01 OPEN DATA BASE DC B ( PART ITIONED) 

01 UNTIL ALL MEMBERS HAVE BEEN PROCESSED 

02 CCUNT THE NUMBER OF CA RESIDENT ARRAYS 
02 COUNT THE NUMBER OF LOG ARRAYS 

01 ENODO 

01 USE ARRAY ID CF LAST MEMBER AS THE TOTAL NUMBER OF ARRAYS 

01 GETMAIN FCR CONTPCL BLOCK CORE BASED CN NUMBER OF ARR AYS t LOG ARRAYS, 

* CA RESIDENT ARRAYS 

ENDSEGMENT DPXDBIN1 



Figure 3-188. DPXDBIN2 

DPXCB I N2- INCLUDED SEGMENT BUILD CCNTROL BLOCKS 

01 UNTIL ALL MEMBERS HAVE BEEN PROCESSEC 



02 BUILD DUMMY ALT • S FOR ALL NUMBERED ARRAYS THAT WERE SKIPED 

02 BUILD PRIMARY ALT FROM DIRECTORY ENTRY 

02 BUILD SECONDARY ALT FROM DIRECTORY ENTRY 

02 IF IT'S NOT A DUMMY ARRAY 

03 IF IT'S CA RES IOENT ARRAY 

04 READ IN FIRST DATA RECORD 

04 IF CCB HAS NOT BEEN BUILT FOR THIS DDNAME 

05 BUILD DCB 
04 ENDIF 

03 ELSE 

04 IF IT'S A LOGGED ARRAY 

05 READ IN FIRST DATA RECORD 
05 BUILD LCG CONTRGL BLOCK 
04 ENDIF 

03 ENDIF 

02 ENOIF 



01 ENDDC 

01 BUILD DCB FOR DATA BASE INITIALIZATION DATA SET 
01 BUILD DCB FCR CCMPOSITE ITEMS DATA SET 
ENDSEGMENT DPXDBIN2 
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Figure 3-189. DPXDBIN3 

DPXDB TN3-S0RT VS RESIDENT ARRAY DATA ADDRESSES 

01 UNTIL EACH USE CCDE HAS EEEN PROCESSED 

02 GETMAIN A SORT TABLE FOR THIS USE CODE 
01 ENDDO 

01 UNTIL ALL VS RESIDENT ARRAYS WHICH REQUEST PAGE BOUNDARIES ARE 

* PROCESSED 
01 FIND SORT TABLE FOR THIS ARRAY'S USE CODE 
01 FIND NEXT AVAILABLE SLOT 

01 SAVE ARRAY ID IN SLOT 

01 SAVE THE RELATIVE PAGE NUMBER FOR THIS USE CODE IN SLOT 

01 SAVE ARRAY SIZE IN THE P ALT DATA FIELD 

01 SAVE THE NUMBER OF BYTES LEFT IN THE PAGE AT THE END OF THIS ARRAY 
ENDDC 

UNTIL ALL VS RESIDENT ARRAYS WHICH 00 NOT REQUEST PAGE BOUNDARIES 

* ARE PROCESSED 
01 FIND NEXT AVAILABLE SLOT 

01 SAVE ARRAY ID IN SLOT 

01 SAVE THE ARRAY SIZE IN THE PALT DATA FIELD 

01 WHILE ANY PREVIOUSLY USED SLOTS HAVE NOT BEEN EXAMINED OR 

01 UNTIL TFIS ARRAY'S DATA WILL FIT INTO A PREVIOUSLY USED PAGE 

02 GET NEXT SLOT 
01 END DO 

01 IF NO FIT WAS FOUND AND 

01 IF MINIMUM BOUNDARY REQUESTED 

02 SAVE THE RELATIVE PAGE NUMBER FOR THIS USE CODE IN THE SLOT 
01 ENDIF 

01 RESET NC.OF BYTES LEFTOVER IN THIS PAGE 

01 INCREMENT THE COUNT OF ARRAYS FOR THIS PAGE 

01 SAVE COUNT CF ARRAYS IN SLOT 
ENDDC 

UNTIL EACH USE CCOE SORT TABLE HAS BEEN PROCESSED 

01 SORT THE SORT TABLE BASED ON RELATIVE PAGE NUMBER AND COUNT NUMBER 

* USING A MERGE EXCHANGE TECHNIQUE 
01 ENDDC 

01 UNTIL EACH USE CODE SORT TABLE HAS BEEN PROCESSED 

02 UNTIL EACH SLOT IN THE SORT TABLE HAS BEEN PROCESSED 

03 IF PAGE 80UNCARY NEEDED 

04 RCUND RELATIVE DATA ADDRESS TO NEXT PAGE BOUNDARY 
03 END IF 

03 SAVE RELATIVE DATA ADDRESS IN PACT CAT A FIELD 

03 INCREMENT RELATIVE DATA ADDRESS BY SIZE OF THIS ARRAY 

02 ENDDC 

01 ENODO 

FNOS EGMENT 
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Figure 3-190. DPXDBIN4 



DPXDB I N4-I NCLUDEC SEGMENT WRITE 3INIT ITEM AND DATA RECORDS 

01 WRITE ITEM RECORD 

01 UNTIL ALL CAT* RECORDS HAVE BEEN WRITTEN 

02 WRITE DATA RECORD 
01 FNDDO 

01 STOW 31 NIT DIRECTORY ENTRY 
01 CLOS DATA BASE DCB 
ENDSEGMENT DPXDBIN4 



Figure 3-191. DPXDBIN6 

DPXDB I N6-I NCLUDED SEGMENT READ DIRECTORY BLOCKS 

01 CPEN CAT A BASE CC6 (SEQUENTIAL) 

01 UNTIL ALL CIRECTORY BLOCKS HAVE BEEN READ IN 

02 GET WAIN FOR DIRECTORY BLOCK 
02 RE*C IN CIRECTORY BLOCK 

01 ENDOO 

01 CLOSE DATA BASE DCB 
ENOSEGMENT CPXCBIN6 
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Appendix A. DIRECTORY 



This appendix contains cross-references of the Special Real Time Operating 
System to the following: 

• CSECT Names /Source Members 

• Module Names /HIPO-PDL Charts 

• Macro Names /Module Names 

• Operator Command /Module Name 

• Module Name /Functional Area 
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CSECT NAMES/ SOURCE MEMBERS 

This subsection contains a cross-reference of Special Real Time Operating 
System CSECT names and source members. The CSECTS (Load Modules) are named 
according to th<* following standards. The first three characters arc either 
DOM or DPP as defined by IBM product code standards. Those CSECTS that 
begin with DOM are associated with the failover /restart function. Those 
CSECTS that begin with DPP utilize the fourth character to denote the sec- 
tion of the system where they belong, as follows: 

DPP - First three characters 
Fourth character 

C - Time Management 

D - Online Data Base 

F - FORTRAN Interface Routines 

I - Initialization Routines 

M - Message Handler 

P - PL/I Interface Routines 

S - Duplicate Data Set Support 

T - Task Management 

U - Offline Programs 

X - Miscellaneous 

Z - Test and Diagnostic Program 

The remaining four characters are intended to have meaning to identify the 
function of the CSECT. 

The copied segments follow a similar naming convention in most cases. The 
difference is that one "P" is omitted from the CSECT name and a numeric digit 
is added. For example, DPCTIME1 and DPCTIME2 are copied segments that are 
a part of DPPCTIME. 

The exception to the above convention is the CSECT IEAXYZ5 . This CSECT is 
included as a part of the 0S/VS1 fixed nucleus and, as such, must conform 
to the requirements of 0S/VS1. 
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cseci 

NAME 

DOM1CEXT 

1EAXYZS 

DGMIkBT 

DOMIRCMN 
DGMIRCPY 
DOMlkPL V 
DGMIKFL2 
DGMIkl NT 
DOMIRN1P 

DGMlkPkB 
OGMIRwT 



DGMXL1S1 
OGMXST G 1 



MAIN 
SEGMENT 

DOM1CEXT 
DOMICEXT 
DOM1RBT 

DGMIRCMN 
OGMIRCPY 
DOMikFLV 
DGM IkPL 2 
OGMlklNT 
DOMIkNIP 

UOM1RPRB 
DGM1RWT 



DGM1SVC1 
DOM I SVC 2 
DUN 1 SVC** 
DOMXLIST 
DUMXSTbl 



CliPlED 
SEGMENT 



DPPCALCF UPPCALCF 

DPPCPTIM DPPCPTIM 
DPPCTIME DPPCTIME 



DPPCTSVC UPPCTSVC 



DPPCUPCP DPPCUPCP 



DPPDAkAY 
DPPDbLOK 
DPPDbS IP 
DPPDFkEt? 
DPPDGt TL 



GPP GAR AY 
DPPDBLOK 
DPPDbSIF 
DPPGFREQ 
DPPDGETL 



DGM IRS It: 



DOMIkSlO 



DGM I R Si G 



MXSTG101 
MXSTG1C2 
MXSTG103 
MXSTG1U4 
MXSTG1G5 

DPCALCFI 



G PC TIME 1 
DPCT1ME2 

DPGTSVC1 
DPCTSVC2 
D PC T SVC 3 
DPCTSVC4 

DPCGPCF1 
DPLUPCF2 
DPCUPCF 3 
DPCUPCF4 



SUBSTITUTE EXTERNAL FLTH 
ALTERNATE NAME FOR ABOVE MODULE 
FAILllVfcR/RE START BOOTSTRAP 
STAND ALCNE I/O ROUTINE 
CONTINUOUS MONITOR 

COPY A F AI LOVER/RESTART DATA SET 
LOAG 1 F/R SVC 
LOAD Z F/R SVC 

F /k-bXTERNAL INTERRUPT INIT. 
RE -NIP 

STAND ALONE I/O POUTINF 
PkOBE 

FA1 LOVER /REST APT WRITE 

STAND ALONE I/O ROUTINF 

Thfc FOLLOWING 3 MODULFS APE NAMED AT 

SYSGbN TIME ACCORDING TO NUMBERS SUPPLIED 

TYPE 1 SVC PRFFIX HANDLFR 

TYPE 2. SVC PRFFIX HANDLER 

TYPl- SVC PREFIX HANDLER 

PREPARE IEhLIST INPUT 

STAGE 1 OF SYSGEN UTILITY 



CALCULATE CORRECTION FACTOR 

OBTAIN BASE TIME 

PTIMfc MGN1TFR ROUTINF 

TIME UPDATE ROUTINE" 

POST MIDNIGHT TIME CORRECT I ON 

TIME ERKGk ROUTINF 

PT 1Mb TYPE ? SVC 

RET OPTION 

ADG OPTION 

MOD OPTION 

DELETE OPTION 

UPDATE CURRECTION FACTOR 

UPDATE CORRECTION FACTOR 

UPDATE TIME 

UPDATE DATF 

UPDATE PTGF S 

GET PLTARAY PROCESSOR 

GET PUT BLOCK SUBROUTINE 

TWO PARTITION INTERFACE FOP DATA EASE(M) 
CYCLIC LOGGING ROUTINE 
GETLGG ROUTINE 
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CSECT 
NAME 



MAIN 
StOMtNT 



COPIED 
SE GMt NT 



DPPD1TEM 
DPPDPUTL 
bPPLkl EE 
DPPbkl FT 
DPPDSUB2 
bPPDUMPL 
DPPDGPUL 
DPPbWkST 
DPPFAUNC 

DPPFIXHk 
DPP IDE AS 



DPPU1T EM 
DPPbFUTL 
LPPDklEE 
UPPuF IPT 
DPPbSLW 
LPPbUMF'L 
DPPbUf UL 
DPPbWkST 
DPPP AUNG 

DPPEIXBk 
DFP1DBAS 



DPPIlkE 
DPPILOCN 
OPPINI T 



DPP1 IKE 

DPP1LUGN 

OPPIN1T 



DPP1NIT0 DPP1N1TU 



DPP1N1T1 



PPlNiTl 



bPPlPF IX 
DPPIPFRE 
bPPISTAE 
DPP1T I Ml 

DRPM1N1T 

DPPMMSG 

DPPMMSCV 

DPPMMSG1 

LPPPAkM 

UPPPI R 

DPPSAMP1 

DPPSASPC 
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bPPlPR IX 
DPP IFF kb 
LPPISTAb 
DPP1T1M1 

DPPMINIT 
[ PPMMSG 
DPRMMSGV 
D PPMMSG 1 
DPP PA KM 
DPPP1F 
DPPSAMP 1 
LPPSASOC 



Li PI UbAS 1 

DPibb as: 

DPI 0BAS3 
DP1LBAS6 



LPIM71 
DP1N1T2 
DP1NIT3 
bPlNITi> 

uPINITCl 
DP1NIT02: 
OPINITGS 
DPlNllV/^ 
L>P1N17C5> 
DPINIT06 
LPlNITGe 
DP1N17CV 
DPINITuA 

UPINIT1 1 
DPINI712 
ORINI713 
DP INITIO 



DPI TIMi 1 



GET PGT1TBM PROCFSSOP 

PUTLOG ROUTINE 

LUMMY 1N1T.TIME SETTER 

TIME DklFT CORRECTION 

SLAVL PAkTlTION INTFPFACE ROUTINE 

DUMP LUG ROUTINE 

LUGGING REFRESH ROUTINE 

DATA EASE OPEN/CLOSE ON WRITb/F.F START 

FUKTKAN SUEkOUTINF FOR 

COPY ADDR BIT SFT 

PAGE FIX/FREF HANDLER 

LATA BASE INITIALIZATION 

READ Db TABLES INTO VS STORAGE 

INITIALIZE DE TABLES 

PL AD VS RESIDE NT ARRAYS INTO STORAGE 

INITIALISATION FOP SLAVE PARTITION 

SChtDULE DB OPFN/CLOSF ON Wfc I T t /R F ST ART 

LUGGING INITIALIZATION 

INITIALIZATION TASK MANAGEMENT 

CREATE TMCT INITIALIZE GETWA 

INITIALIZE CBGFT 

CREATE ADVANCE TCP S 

SYNChRUNIZE FOR TWO PARTITION 

INITIALIZATION CARD FF AD ROUTINE 

PAkAM KEYWORD PROCESSOR 

PATCH CARD PROCESSOR 

CONTINUATION CAPO PROCESSOR 

CON7 kOL CARD PROOFS SOP 

BL1LD WAIT LIST ROUTTNF 

RGU7 1NE 70 HANDLE PLANK S IN PAKAM 

G0N7 kUL BLOCK EUILD AND CHAIN 

ERkUk MESSAGE WRITFP. 

tP/kH S7AEX CARD PROCESSOR 

IN17IAL1ZA7ION SU^SYSTFM PATCHOk 

EKR.Ok MESSAGE ROUTINE 

PROBE INTERFACE 

CONTINUOUS MONITOR INTF R FACE 

PkUbL/TlhE IRR TO SUPPRESS TIME 1NTE ERUPTS 

PAGE FIX kUUTlNF 

PAGE EkEE UNFIX ROUTINE 

JOB STEP TASK ST AE ROUTINE 

TIME INITIALIZATION 

INITIALIZE TIME IN TIME AFP AY 

MSG MANDLEF INITIALIZATION 

SYSTcM MESSAGE FORMATTER 

ROUTING CODE CHANGE 
OUTPUT POUT IN t 
ROUTINE 
ROUT I NF 



SYSTEM Me S SAGE 
SYSTEM MESSAGE 
PL/I INTERFACE 
PL/r INTERFACE 



UDSDSbCT 



SAMPLE PkUCRAM-PATCH FOUTlNt 
bbS A5YNGHF0NIS OPPN OR CLOSE 
DShLl UP DOS CONTROL AREA 
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CSbCT 
NAME: 

LPPSt hST 

DPPSBF i 

DPPSCF CK 

LPPSCHK2 

DPPSChK3 

UPPSCHK4 

UPPSChPF. 

DPPSCLUP 

DPPSCL1 

LPPSCMPK 

DPPSCP^b 
DPPSCkLK 

DPFSCT^T 

DPPSDDSX 

DPPSIN1T 

DPPSIM2 

DPPSI N13 

DPPSIM<t 

DPPSIM5 

DPPSiMfa 

DPPSLGCK 

UPPSMSGI 

DPPSMSGO 
DPPSNOTE 



MAIN 
SEGMENT 

DPPSLiFST 

UPPSbbi 

DP PSCHCK 

DPPSCHK2 

DPPSCHK3 

DPF SCHK4 

DPPSCHPR 

DPPSCLUP 

DPPSCL1 

LPPSCMPK 

DPPSCP2b 
DPPSCKBK 

DPPSCT2T 

DPPSDDSX 

DPPSIN1T 

DPPSIM2 

DPPSIN13 

DPPS1N14 

UPPS1NI5 

DPPSIM6 

DPPSLOCK 

DPPSMSGi 

DPPSMSGO 
DPPSNOT b 



GDI- ILL 
SbGhfcNT 



UDS DSECT 
LDSL.SBCT 
UDSDSECT 
UDSDSECT 
DDSDS t CT 
UDSDSECT 
DUS DSECT 
UDSDSECT 
DDSbSECT 
UDSDSECT 

DDSDSECT 

DDSDSECT 

DDSDSECT 

UDiUStCT 

UDSDSECT 

DDSDSECT 

UUSNTPT 
DDSDSECT 

DDSDSECT 

DDSUSECT 

UDSDSECT 

DDSDSECT 

UUSUSbCT 



t LUL> FIND TYPE D STOW FOP A DDI. 
uSELT UP UDS CONTROL AREA 
bLDL FIND TYPE D FOP A DDS 
USbCT OF Dt'S CONTPOL AR*A 
DDL CHECK MODULE 
USECT UF UDS CONTROL AREA 
CHECK A UDSDEC6 INTERNAL. 
DSECT OF UDS CONTROL ARF A 
SYhAD KUUTINF FOR DOS CHECK 
DSECT OF DOS CONTROL AREA 
A LiACKUP DECP 
UF DDS CONTROL AREA 
PRIMARY DECB AND A 
UF DDS CONTROL ARE A 
ROUTINE 
CONTROL 



BACKUP DEC E 



APPA 



CHECK 
DSECT 
SET A 
DSECT 

UDS CLEAN UP 
L SECT OF DDS 
CLOSE A UDS 

DSECT OF DDS CONTROL AREA 

COMPARE FUK DDS 

DSECT OF DDS CONTROL AREA 

COPY A DDS PRIMARY TO BACKUP 

CREATE A DDS PACKUP 

DSECT UF DDS CONTROL AREA 

COPY TRACK TO TRACK 

DSECT OF DDS CONTROL AREA 

SEARCH F OK AN IDA F POM A GIVEN UDCB 

DSECT OF UDS CONTROL AREA 

INITIALIZE THE DOS SYSTEM 

DStCT UF DDS CONTROL APE A 

PRUCESS THE CTLIN STREAM 

DSECT UF DDS CONTROL AREA 

VALIDATE EACH DDS DECLARATION WFT JCL 

E SECT OF DDS CONTROL AREA 

ALLOCATE AND INITIALIZE PERMANENT DDSCTLA 

COPY CODE FOR NOTE POINT BRANCH 

DSECT OF DDS CONTROL AREA 

DE FORMAT THE CTLIN CARD 

DSLCT OF DDS CONTROL AREA 

DEFINE LOCKS FOR EACH CT L A 

DSECT OF DDS CONTROL AREA 

LOCK A DDS 

DSECT OF DDS CONTROL ARF A 
DOS INPUT MESSAGE PROCESSOR 
DSECT OF DDS CONTROL AREA 
DDS MESSAGE OUTPUT PROCESSOR 
PERFORM NOTE ON A DOS 
DSECT UP UDS CONTROL AREA 
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CStCT 


MAIN 


CLiPIED 




NAME 


SEGMENT 


SEGMENT 




DPPSNTPT 


DPPSNTPT 




E RANCH CODE EOF NOTE POINT 






DDSNTPT 


CLipy CODE FOR NOTE PHI N'T PFANCH 


DPFSOPCL 


DPPSOPCL 




OPEN CLOSE HALF OF A DDS 






DDSDSECT 


DSECT OF DDS CONTROL A r c A 


DPPSOP 1 


UPPSGP1 




OPEN A D DSD CP 






DOS USE CT 


DSECT OF DDS CONTROL A9FA 


DPPSOP2 


DPPSUP2 




OPEN A DECLARED r?DS 






DDSDSECT 


DSECT OF DDS CONTROL AREA 


DPPSPNTF 


DPPSPNT F 




PERFORM POINT FIND TYPE C ON A DDS 






DDSUSECT 


DSECT OF DDS CONTROL APFA 


DPPSRC 10 


DPPSRC1U 




RECREATE I 0 FOR A DDS HALF 






DDSDSECT 


DSECT uF DDS CONTROL A*FA 


DPPSRDWT 


DPPSRDWT 




READ WRITE MODULE FOP HDS 






DDSDSECT 


DSECT OF DDS CONTROL APFA 


DPPSKC W2 


DPPSRDW2 




ACTUAL READ WRITF FOR A DDS 






DDSDSECT 


DSECT OF DDS CONTROL AREA 


DPPSRLSE 


DPPSRLSE 




kb LEASE A D DSD EC B 






DDSDSECT 


uSECT UF DDS CONTROL AREA 


DPPSRSRV 


DPPSRSRV 




RESERVE A DDS DEC P 






DDSDSECT. 


DSECT OF DDS CONTROL AFFA 


DPPSRSTR 


DPPSRSTK 




DDS FAILOVFR/RE START 


DPPSKTCP 


DPPSRTCP 




DDS REAL TIME COPY 


DPPSSHAR 


DPPSSHAR 




SHARE A DDS 






DDSDSECT 


DSECT OF DDS CONTROL AREA 


DPPSSRCH 


DPPSSRCH 




SEARCH A FIXED LENGTH TABLE FOR AN ENTRY WHO 


DPPSSTl 


DPPSST1 




STOW FOR A DDS 






DDSDSECT 


DSECT OF DDS CONTROL AREA 


DPPSSWCH 


DPPSSWCH 




SWITCH PRIMARY TO BACKUP FOR A DDS 






DDSDSECT 


DSECT OF DDS CONTROL AREA 


DPPSTBOS 


DPPSTBOS 




TAKE A BACKUP OUT OF SERVICE 






DDSDSECT 


DSECT CF uDS CONTROL APFA 


DPPSUNLK 


DPPSUNLK 




UNLOCK A DDS. 






DDSDSECT 


LSECT OF DDS CONTROL AP c A 


DPPSUNSH 


DPPSUNSH 




UNSHAKE A DDS 






DDSDSECT 


DSECT UF DDS CONTROL AREA 


DPPSWRST 


DPPSWRST 




DDS WRITl STATUS 


uPPSXTCE 


DPPSXTCB 




LOCATE ALLOCATE A ODSXTCBC FOR AN INPUT TASK 






DDSDSE XT 


DSECT OF DOS CONTROL APE A 


DPPTCBGT 


DPPTCLGT 




CBGtT TYPE 1 SVC ROUTINE 


DPPTCSVC 


DPPTCSVC 




CHAIN TYPE 1 SVC ROUTINE VALHITY 






DPTCSVC1 


CHAIN FUNCTION 


DPPTDLMP 


DPPTDLMP 


DPPTDLMP 


LOAD MODULE PURGE RFENTR ANT 






DPTDLMP1 


TCBX LCd USE SCAN 






DPTDLMP2 


TCbX LCB PURGE SCAN 






DPTDLMP3 


TCLX POST SCAN 






DPTDLMP4 


ST I ME R EXIT RTN 






DPTDLKP5 


ASYNC DELETE RTN 


uPPTDSVC 


DPPTDSVC 


DPPTDSVC 


DPATCH SVC RTN TYP 1 SVC PTN 






DPT DEBUG 


DEBUG AID 






DPTDSVC1 


VALIDITY CHECK 
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DPTECBCC 


ECB CC DEFINITIONS 




DPTPSVC2 


ADDRESS CHECK 
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CSECT 
NAME 

DPPTETXR 



DPPTGWFW 
DPPTIMPS 
DPPTPMON 



HA IN 
SEGMENT 

DPPTETXR 
DPPTETXM 

DPPTGWFW 
DPPTIMPS 
DPPTPMON 



DPPTPSVC DPPTPSVC 



DPPTPWQE 
DPPTQIMP 
DPPTRGWA 
DPPTRSVC 



DPPTPWQE 
DPPTQIMP 
DPPTRGWA 
DPPTRSVC 



DPPTSMON DPPTSMON 



DPPTSTAE 
DPPTWQDL 



DPPTSTAE 
DPPTWQDL 



DPPTWSVC DPPTWSVC 



DPPUMSG DPPUMSG 



DPPXDBAS 

DPPXDB AT 

DPPXDBCP 
DPPXDBDA 



DPPXDBAS 

DPPXDBAT 

DPPXDBCP 
DPPXDBDA 



DPPXDBIN DPPXDBIN 



DPPXbBLG JPPXDBLG 



COPIED 
StGMENT 

DPPTETXR END OF TASK EXIT REENTRANT 
DPPTETXM WTO ETXRMSG 
DPTECBCC ECB CC DEFINITIONS 

GETWA/FREEW A BRNCH ENTRY SUBROUTINE 
STAE-1MP COMMAND PROCESSING 
DPPTPMON PATCH MONITOR REENTRANT 
DPTECBCC ECB CC DEFINITIONS 
DPTPMUN1 TCBX CLEANUP 
DPTPMON2 HI LVL LANG ENTRY 
DPTPM0N3 USER ROUTINE LOAD 
DPTPMON4 USER ROUTINE EXEC 
DPTPMON5 WOE CLEANUP 
DPTPM0N6 QP/QH INTERFACE 

DPPTPSVC PATCH SVC RTN TYP 1 SVC RTN 

DPTDEBUG DEBUG AID 

DPTECBCC ECB CC DEFINITIONS 

DPTPSVC1 VALIDITY CHECK 

DPTPSVC2 ADDRESS CHECK 

DPTPSVC3 BUILD WOE LCB 

DPTPSVC4 BUILD TCBX 

DPTPSVC5 TEST OTHER PARTITION TO SEE IF ITS ACTI 

PURGE WORK QUEUE 

IMP QS COMMAND PROCESSOR 

TRANSFER GETWA AREA 
DPPTRSVC REPATCH SVC RTN 
DPTDEBUG DEBUG AID 
DPTECBCC ECB CC DEFINITIONS 
DPTPSVC2 ADDRESS CHECK 
DPPTSMON SYSTEM MONITOR 
DPTECBCC ECb CC DEFINITIONS 
DPTSMON1 LOAD RENT MODULES 

ST AE -EX IT ROUTINE FOR STAE/IMP COMMAND 
DPPTWQDL WQt DELETE RTN TYP 2 SVC RTN 

DPTDEBUG DEBUG AID 
DPTECBCC ECB CC DEFINITIONS 

GETWA FREEWA TYPE 1 SVC ROUTINE 
DPTWSVC1 GETWA ROUTINE 
DPTWSVC3 BkANCH ENTRY ROUTINE 

DEFINE MESSAGE 
DPPUMSG1 DELETES MESSAGES 
DPPUMSG2 ADDS fT ESTS t REPLACES MESSAGES 

DATA BASE FINAL PHASE PROCESSOR 

FIRST LOAD 

DATA BASE FINAL PHASE PROCESSOR 
SECOND LOAD 

DATA BASE BDAM DATA SFT COMPRESS 
DATA BASE FINAL PHASE PROCESSOR 
SUPPORT ROUTINE TO WRITE DATA TO 
DATA BASE BDAM DATA SETS 
OFFLINE DATA BASE TABLE CONSTRUCT 

DPXDBIN1 OBTAIN INFORMATION FOR DB TABLfcS 

DPXDBIN2 INITIALIZE DB TABLES 

DPXDBIN3 SORT VS RESIDENT ARRAYS BY USE CODE 

DPXDBIN4 WRITE OUT DB TABLES 

DPXDBIN6 READ PDS DIRECTORY FOR DB 

DATA BASE FINAL PHASE PROCESSOR 

SUPPORT ROUTINE TO CALCULATE 

LUGGING ARRAY BLOCK COUNT AND 

BLOCK SIZE A-7 



TYP 2 SVC RTN 



REENTRANT 
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CSECT 
NAME. 



MAIN 
SEGMENT 



CDF I ED 
SEGMENT 



DPPXDEFL 

DPPXDPb 

DPPXDRC 

DPPXDRCX 

DPPXIMPP 

DPPX1MPW 

DPPXKI LL 

DPPXLOCK 

DPPXNkTI 

DPPXPCUN 

DPPXKDR 

DPPXRINT 

DPPXRPRT 

DPPXSVCP 

DPPXS2SC 

DPPXUT1L 
0PP2SAMP 



DPPXDEFL 

DPPXDPB 

DPPXDRC 

DPPXDRCX 

DPPXIMPP 

DPPXIMPW 

DPPXKILL 

DPPXLOCK 

DPPXNRT1 

DPPXPCON 

DPPXROR 

LPPXRINT 

DPPXRPRT 

DPPXSVCP 

DPPXS2SC 

DPPXUTIL 
DPP2SAMP 



DEFINE LOCK CONTROL BLOCKS 

DATA RECORDING PLAYBACK 

DATA RECORDING COLLECTION ROUTINE 

DUMMY DATA RECORDING COLLECTION 

INPUT MESSAGE PROCESSOR 

INPUT MESSAGE PROCESSOR WTOR ROUTINE 

ORDERLY TERMINATION ROUTINE 

LOCK ROUTINE 

DATA PLAYBACK OFFLINF ENTRY ROUTINE 
PLAYBACK REQUEST INTFRPRETTF R 
DATA PLAYEACK PRINT ROUTINE 
DATA RECORDING INITIALIZATION 
REPORT DATA OUTPUT PROCESSOR 
SETPSW TYPE 1 SVC 

LOCATE INSERT CARDS IN OS/VS1 STAC F 
SYSGEN DECK. 

OFFLINE UTILITY CONTROL PROGRAM 
SAMPLE PROGRAM 



A-8 



LICENSED MATERIAL - PROPERTY OF IBM 



MODULE NAMES /HIPO-PDL CHARTS 

This section contains a cross-reference of the Special Real Time Oper- 
ating System module names described by HIPO charts in Section 2 and the 
corresponding PDL charts in Section 3. COPY Segments are not included. 
The module names are listed alphabetically for quick reference. 



Module Name 


HIPO Chart- 


rUL Chart 


DOMIRBT 


2-146 


3-2 


DOMIRCMN 


2-148 


3-3 


DOMIRCPY 


2-145 


3-4 


DOMIRFLV 


2-142 


3-5 


D0MIRFL2 


2-143 


3-6 


DOMIRNIP 


2-147 


3-8 


DOMIRPRB 


2-149 


3-9 


DOMIRWT 


2-144 


3-10 


D0MXSTG1 


2-163 


3-14 


DPPCALCF 


2-39 


3-45 


DPPCPTIM 


2-33 


3-46 


DPPCTIME 


2-32 


3-47 


DPPCTSVC 


2-34 


3-48 


DPPCUPCF 


2-40 


3-49 


DPPDARAY 


2-51 


3-50 


DPPDBLOK 


2-48 


3-51 


DPPDBSIF 


2-57 


3-52 


DPPDFREQ 


2-55 


3-53 


DPPDGETL 


2-52 


3-54 


DPPDITEM 


2-49 


3-55 


DPPDPUTL 


2-53 


3-56 


DPPDSUB2 


2-56 


3-58 


DPPDUMPL 


2-54 


3-59 


DPPDUPDL 


2-47 


3-60 


DPPDWRST 


2-151 


3-61 


DPPFAONC 


2-135 


3-62 


DPPIDBAS 


2-45 


3-64 


DPPIIRB 


2-150 


3-65 


DPPILOGN 


2-46 


3-66 


DPPINIT 


2-9 


3-67 


TIPPTWTTn 
Urr J.1N J. ill 


O 11 

Z— ±1 


3-68 


DPPINIT1 


2-12 


3-69 


DPPIPFIX 


2-113 


3-70 


DPPIPFRE 


2-114 


3-71 


DPPISTAE 


2-13 


3-72 


DPPITIMI 


2-31 


3-73 


DPPMINIT 


2-59 


3-74 


DPPMMSG 


2-60 


3-75 


DPPMMSGV 


2-62 


3-76 


DPPMMSG1 


2-61 


3-77 


DPPPARM 


2-139 


3-78 


DPPPIF 


2-121 


3-79 


DPPSAMP1 


2-166 


3-80 


DPPSASOC 


2-94 


3-81 


DPPSBFST 


2-100 


3-82 
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Module Name 


HIPO Chart 


PDL Chart 


DPPSBF1 






2-85 


3-83 


DPPSCHCK 






2-80 


3-84 


DPPSCHPR 






2-95 


3-88 


DPPSCLUP 






2-78 


3-89 


DPPSCL1 






2-86 


3-90 


DPPSCMPR 






2-93 


3-91 


DPPSCRBK 






2-92 


3-93 


DPPSINIT 






2-77 


3-96 


DPPSLOCK 






2-96 


3-102 


DPPSMSGI 






2-89 


3-103 


DPPSMSGO 






2-97 


3-104 


DPPSNOTE 






2-82 


3-105 


DPP SNTP T 






2-81 


3-106 


DPPSOPCL 






2-98 


3-107 


DPPSOP1 






2-87 


3-108 


DPPSPNTF 






2-83 


3-110 


DPPSRCIO 






2-99 


3-111 


DPPSRDWT 






2-84 


3-112 


DPPSRTCP 






2-93.1 


3-116.1 


DPPSRSTK 






2-79 


3-116 


DPPSSHAR 






2-101 


3-117 


DPPSSRCH 






2-102 


3-118 


DPPSST1 






2-88 


3-119 


DPPSSWCH 






2-91 


3-120 


DPPSTBOS 






2-90 


3-121 


DPPSUNLK 






2-103 


3-122 


DPPSUNSH 






2-104 


3-123 


DPPSWRST 






2-105 


3-124 


DPPSXTCB 






2-106 


3-125 


DPPTCBGT 






2-112 


3-126 


DPPTCSVC 






2-111 


3-127 


DPPTDLMP 






2-26 


3-128 


DPPTDSVC 






2-22 


3-129 


DPPTETXR 






2-19 


3-130 


DPPTGWFW 






2-108 


3-131 


DPPTIMPS 






2-27 


3-132 


DPPTPMON 






2-16 


3-133 


DPPTPSVC 






2-21 


3-134 


DPPTPWQE 






2-24 


3-135 


L/rriCJxMr 






2-28.1 


3-135.1 


DPPTRGWA 






2-110.1 


3-136 


DPPTRSVC 






2-23 


3-137 


DPPTSMON 






2-20 


3-138 


DPPTSTAE 






2-28 


3-139 


DPPTWQDL 






2-25 


3-140 


DPPTWSVC 






2-110 


3-141 


DPPUMSG 






2-159 


3-142 
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Module Name 


HIPO Chart 


PDL Chart 


DPPXDBAS 


2-155 


3-145 


DPPXDBAT 


2-156 


3-146 


DPPXDBCP 


2-161 


3-147 


DPPXDBDA 


2-157 


3-148 


DPPXDBIN 


2-160 


3-149 


DPPXDBLG 


2-158 


3-150 


DPPXDEFL 


2-115 


3-151 


DPPXDPB 


2-74 


3-152 


DPPXDRC 


2-71 


3-153 


DPPXDRCX 


2-72 


3-154 


DPPXIMPP 


2-65 


3-155 


DPPXIMPW 


2-64 


3-156 


DPPXKILL 


2-66 


3-157 


DPPXLOCK 


2-116 


3-158 


DPPXNRTI 


2-162 


3-159 


DPPXPCON 


2-73 


3-160 


DPPXRDR 


2-74.1 


3-161 


DPPXRINT 


2-70 


3-162 


DPPXSVCP 


2-68 


3-163 


DPPXRPRT 


2-117 


3-164 


DPPXUT1L 


2-154 


3-165 


DPPZSAMP 


2-165 


3-166 



MACRO NAMES /MODULE NAMES 

This section contains a cross-reference of the Special Real Time 
Operating System Macro names to the name of the module that receives 
control when the corresponding macro is executed. The Macro names are 
listed alphabetically for quick reference. 



Macro Name 


Module Name 


HIPO Chart 


PDL Chart 


CBGET 


DPPTCBGT 


2-112 


3-126 


CBFREE 


DPPTCBGT 


2-112 


3-126 


CHAIN 


DPPTCSVC 


2-111 


3-127 


DDSBLDL 


DPPSBF1 


2-85 


3-83 


DDSCLOSE 


DPPSCL1 


2-86 


3-90 


DDSFIND 


DPPSBF1 


2-85 


3-83 


DDSOPEN 


DPPSOP1 


2-87 


3-108 


DDSSTOW 


DPPSST1 


2-88 


3-119 


DEFLOCK 


DPPXDEFL 


2-115 


3-151 


DPATCH 


DPPTDSVC 


2-22 


3-129 


DPPFIX 


DPPIPFIX 


2-113 


3-70 


DPPFREE 


DPPPIPFRE 


2-114 


3-71 


DUMPLOG 


DPPDUMPL 


2-54 


3-59 
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Macro Name 


Module Name 


HIPO Chart 


PDL Chart 


FREEWA 


DPPTGWFW 


2-108 


3-131 


GETARRAY 


DPPDARAY 


2-51 


3-50 


GETBLOCK 


DPPDBLOK 


2-48 


3-51 


GETITEM 


DPPDITEM 


2-49 


3-55 


GETLOG 


DPPDGETL 


2-52 


3-54 


GETWA 


DPPTGWFW 


2-108 


3-131 


LOCK 


DPPXLOCK 


2-116 


3-158 


MESSAGE 


DPPMMSG 


2-60 


3-75 


PATCH 


DPPTPSVC 


2-21 


3-134 


PTIME 


DPPCTSVC 


2-34 


3-48 


PURGEWQ 


DPPTPWQE 


2-24 


3-135 


PUTARRAY 


DPPDARAY 


2-51 


3-50 


PUTBLOCK 


DPPDBLOK 


2-48 


3-51 


PTTTTTFM 


DPPDTTFM 


2-4Q 


3-5S 


PUTLOG 


DPPDPUTL 


2-53 


3-56 


RECORD 


DPPXDRC 


2-71 


3-153 


REPATCH 


DPPTRSVC 


2-23 


3-137 


SETPSW 


DPPXSVCP 


2-117 


3-164 


WTFAILDS 


DOMIRFLV 


2-142 


3-5 



OPERATOR COMMAND/MODULE NAMES 

This section contains a cross-reference of the operator commands 
recognized by the Special Real Time Operating System to the name of the 
module that receives control in response to the corresponding operator 
command. The operator commands are listed alphabetically for quick 
reference. 



Operator Command 


Module Name 


HIPO Chart 


PDL Chart 


CANCEL 


DPPXKILL 


2-66 


3-157 


DDSCNTRL 


DPPSMSGI 


2-89 


3-103 


DLMP 


DPPTDLMP 


2-26 


3-128 


DREC 


DPPXRINT 


2-70 


3-162 


MSGRC 


DPPMMSGV 


2-62 


3-76 


RTCOPY 


DPPSRTCP 


2-93.1 


3-116.1 


REPORT 


DPPXRPRT 


2-68 


3-163 


QS 


DPPTQIMP 


2-28.7 


3-135.1 


STAE 


DPPTIMPS 


2-27 


3-132 


STOP 


DPPXIMPW 


2-64 


3-156 



( 
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MODULE NAME/FUNCTIONAL AREA 

This section contains a cross-reference of the Special Real Time 
Operating System module names described by HIPO charts in Section 2 and 
the functional area to which they belong. An overall understanding of 
the functional area of concern can be obtained in the Description and 
Operations Manual. The module names are listed alphabetically for quick 
reference. 



Module Name 


Functional Area 


DOMIRBT 


Two CPU Operation 


DOMIRCMN 


Two CPU Operation 


DOMIRCPY 


Two CPU Operation 


DOMIRFLV 


Two CPU Operation 


D0MIRFL2 


Two CPU Operation 


DOMIRNIP 


Two CPU Operation 


DOMIRPRB 


Two CPU Operation 


DOMIRWT 


Two CPU Operation 


D0MXSTG1 


SYSGEN Utility 


DPPCALCF 


Time Management 


DPPCPTIM 


Time Management 


DPPCTIME 


Time Management 


DPPCTSVC 


Time Management 


DPP CUP CF 


Time Management 


DPPDARAY 


Data Base Management 


DPPDBLOK 


Data Base Management 


DPPDBSIF 


Data Base Management 


DPPDFREQ 


Data Base Management 


DPPDGETL 


Data Base Management 


DPPDITEM 


Data Base Management 


DPPDPUTL 


Data Base Management 




yaud jjglog i idLicigcmcii.u 


DPPDUMPL 


Data Base Management 


DPPDUPDL 


Data Base Management 


DPPDWRST 


Two CPU Operation 


DPPFAONC 


High-Level Language Support 


DPPIDBAS 


Data Base Management 


DPPIIRB 


Two-CPU Operation 


DPPILOGN 


Data Base Management 


DPPINIT 


Initialization 


DPPINITO 


Initialization 


DPPINIT1 


Initialization 


DPPIPFIX 


Supplementary Services 


DPPIPFRE 


Supplementary Services 


DPPISTAE 


Initialization 


DPPITIMI 


Time Management 


DPPMINIT 


Message Handler 
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Module Name 


Functional Area 


DPPMMSG 


Message Handler 




DPPMMSGV 


Message Handler 






DPPMMSG1 


Message Handler 




DPPPARM 


High-Level Language Support 


DPPPIF 


High-Level Language Support 


DPPSAMP1 


Sample Programs 




DPPSASOC 


Duplicate 


Data 


Set 


Support 


DPPSBFST 


Duplicate 


Data 


Set 


Support 


DPPSBF1 


Duplicate 


Data 


Set 


Support 


DPPSCHCK 


Duplicate 


Data 


Set 


Support 


DPPSCHPR 


Duplicate 


Data 


Set 


Support 


DPPSCLUP 


Duplicate 


Data 


Set 


Support 


DPPSCH1 


Duplicate 


Data 


Set 


Support 


DPPSCMPR 


Duplicate 


Data 


Set 


Support 


DPPSCRBK 


Duplicate 


Data 


Set 


Support 


DPPSINIT 


Duplicate 


Data 


Set 


Support 


DPP SLOCK 


Duplicate 


Data 


Set 


Support 


DPPSMSGI 


Duplicate 


Data 


Set 


Support 


DPPSMSGO 


Duplicate 


Data 


Set 


Support 


DPPSNOTE 


Duplicate 


Data 


Set 


Support 


DPPSNTPT 


Duplicate 


Data 


Set 


Support 


DPPSOPCL 


Duplicate 


Data 


Set 


Support 


DPPSOP1 


Duplicate 


Data 


Set 


Support 


DPPSPNTF 


Duplicate 


Data 


Set 


Support 


DPP SRC 10 


Duplicate 


Data 


Set 


Support 


DPPSRDWT 


Duplicate 


Data 


Set 


Support 


DPPSRSTR 


Duplicate 


Data 


Set 


Support 


DPPSRTCP 


Duplicate 


Data 


Set 


Support 


DPPSSHAR 


Duplicate 


Data 


Set 


Support 


DPPSSRCH 


Duplicate 


Data 


Set 


Support 


DPPSST1 


Duplicate 


Data 


Set 


Support 


DPPSSWCH 


Duplicate 


Data 


Set 


Support 


DPPSTBOS 


Duplicate 


Data 


Set 


Support 


DPPSUNLK 


Duplicate 


Data 


Set 


Support 


DPPSUNSH 


Duplicate 


Data 


Set 


Support 


DPPSWRST 


Duplicate 


Data 


Set 


Support 


DPPSXTCB 


Duplicate 


Data 


Set 


Support 


DPPTCBGT 


Supplementary S 


ervices 


DPPTCSVC 


Supplementary S 


ervices 


DPPTDLMP 


Task Management 




DPP TD SVC 


Task Management 




DPPTETXR 


Task Management 




DPPTGWFW 


Supplementary Services 


DPPTIMPS 


Task Management 




DPPTPMON 


Task Management 




DPPTPSVC 


Task Management 
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Module Name 


Functional Area 


DPPTPWQE 


Task Management 


DPPTQIMP 


Task Management 


DPPTRGWA 


Supplementary Services 


DPPTRSVC 


Task Management 


DPPTSMON 


Task Management 


DPPTSTAE 


Task Management 


DPPTWQDL 


Task Management 


DPPTWSVC 


Supplementary Services 


DPPUMSG 


Offline Utility 


DPPXDBAS 


Offline Utility 


DPPXDBAT 


Offline Utility 


DPPXDBCP 


Data Base Compress 


DPPXDBDA 


Offline Utility 


DPPXDBIN 


Offline Utility 


DPPXDBLG 


Offline Utility 


DPPXDEFL 


Supplementary Services 


DPPXDPB 


Data Record and Playback 


DPPXDRC 


Data Record and Playback 


DPPXDRCX 


Data Record and Playback 


DPPXIMPP 


Input Message Processing 


TYD "D VTVTD T.T 


Input Message Processing 


TVDT3WTT T 

DrrXKILL 


Input Message Processing 


UrrALULK 


Supplementary Services 


DPPXNRTI 


Playback Routine (Offline) 


T\T%T%T7"n /""I A\T 

DPPXPCON 


Data Record and Playback 


DPPXRDR 


Data Record and Playback 


DPPXRINT 


Data Record and Playback 


DPPXRPRT 


Report Data Output 


DPPXSVCP 


Supplementary Services 


DPPXUTIL 


Offline Utility 


DPPZSAMP 


Sample Program 
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Appendix B. STORAGE ALLOCATION 



PROGRAM STORAGE REQUIREMENTS 

Table B-1 shows the approximate Virtual Storage required by the load 
modules that comprise the Special Real Time Operating System. The total 
size represents the approximate maximum number of bytes of storage required 
for all load modules of each function. Several options within these 
functions or total functions, are selectable at Special Real Time Operat- 
ing System SYSGEN which may reduce the total size of any SYSGENed system 
from these values. The table includes estimates for routines that are 
used in an offline environment only and will never be a part of the online 
system. The table also includes routines that may be a part of the online 
system during initialization for a short duration, when requested by the 
user or while processing unusual conditions. 

The frequently used column represents the approximate number of bytes of 
each function that may be expected to be used frequently in most systems 
during a continuing realtime execution. The actual use of any function is 
dependent upon the application programs and, as such, the amount of 
virtual or real storage occupied by any function is predictable only 
through analysis of the application. 

In addition to the storage represented in Table B-1, approximately 320 
bytes are added to the OS/VSI fixed nucleus and 7700 bytes are added to 
the pageable nucleus. 

The Special Real Time Operating System programs also require approximately 
five cylinders of a 3330 direct access storage device Cor equivalent) . 

These figures do not include the virtual storage or direct access storage 
that is required for the user's data base. The Special Real Time 
Operating System requires a minimum data base of approximately 800 bytes 
of virtual storage. 

CONTROL BLOCK STORAGE REQUIREMENTS 

In addition to the program and data base storage, the Special Real Time 
Operating System requires a minimum of approximately 2500 bytes of 
control block storage. This amount will increase in multiples of 2K as 
specified by the user. There are a minimum of 5 permanent tasks (job step 
task plus four subtasks) as part of the Special Real Time Operating 
System execution. OS/VSI control block storage (TCBs, RBs and etc.) are 
not included in the preceding estimates. 
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Table B-l Storage Requirements 



Function 


Frequently Used 


lotai oize 


Task Management 


jU UU 


11 ,uuu 


T ime Man a g emen t 


mnn 

jUUU 


s nnn 

J , UUU 


Data Base 


Annn 

*+UUU 


nnn 


Data Base Logging 




a nnn 
o } uuu 


Message Handler 


JJUU 


inn 

j , JUU 


Data Recording 




7 nnn 
/ ,UUu 


Report Data Output 




onn 
yuu 


Duplicate Data. Set Support 


•%nnn 

3UUU 


9 0 nnn 
zz ,uuu 


Input Message Processing 




7,400 


System Initialization 




41,000 


Failover /Res tart 


1000 


20,000 


FORTRAN PL/I Interface 




2,000 


Offline Utility Routines 




35,000 
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Appendix C. DATA AREAS 



This appendix contains information on the following: 

• Overview of Data Areas 

• Control Blocks 



OVERVIEW OF DATA AREAS 

The operation of the Special Real Time Operating System is dependent upon 
various control block structures. These control blocks are unique to the 
Special Real Time Operating System job step in which they exist or, if 
the two-partition operation is invoked, an interface will exist between 
the control block of the MASTER and SLAVE job steps (partitions). All of 
these control blocks may be located through a direct pointer in, or a 
chain of pointers, at the Special Real Time Operating System's Communica- 
tion Vector Table (SCVT) and subsystem's Communication Vector Table (XCVT) . 
An alternate method of locating the control block chains is through the 
TCB extension (TCBX) . 

The address of the TCBX for each Special Real Time Operating System task 
is contained in the user field of the TCB for that task (see Figure C-1) . 
The control blocks represented in the first portion of Appendix C 
are not necessarily complete mappings of the control blocks, but are 
intended to show the logical relationships between the various Special 
Real Time Operating System data areas to aid in locating the control block 
required. The second portion of Appendix C contains a complete 
detailed mapping of each control block and the macro call required to 
generate a DSECT of that control block. All control blocks will be 
referenced by DSECT name. 

The major control blocks pointers found in the SCVT are shown in Figure 
C-2 and the functional area associated with each. 

The major control blocks referenced by Task Management routines can be 
located from the Task Management Control Table (TMCT) as shown in Figure 
C-3. The control blocks related to a Special Real Time Operating 
System dependent task is demonstrated in Figure C-4 with a non-reentrant 
module, Y, currently active. The control blocks related to a Special Real 
Time Operating System independent task is demonstrated in Figure C-5 
with a reentrant module, Z, currently active. 
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TCB 






— ^ 


"TCBUSER 







TCBX 




Repeat For Each 
y Task In 
Jobstep 



XCVTCVTS 



SCVT 

mi i 




Figure C-1. Special Real Time Operating System 
Communications Vector Tables 
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SCVT 



SCVTTMCT 



SCVTTIME 



SCVTTQET 



SCVTRWA 



SCVTDNXT 



SCVTDPRV 



SCVTMWA 



SCVTALOC 



SCVTAPBT 



SCVTLKCB 



TMCT - Task Mgt 



TIMED - Time Mgt 



PTQE - Time Mgt 




PSCB - Supplementary 
Services 




Repeat For Each 
PSCB 



/ MDAT - Message Handler 



DBALTPRI - Data Base Mgt 



DBPBT - Data Base Mgt 



LOCKCBLK - 



Supplementary 
Services 



Figure C-2. SCVT Control Blocks 
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TMCT - Task Mgt Control Table 



TMCTAIND 



TMCTADEP 



TMCTFREE 



TMCTSMON 




TMCTLCBA 



TMCTDCVT 



TCBX - Free TCBX's 



Repeat 
For Each 
Free 
TCBX 



TCBX - Independent Tasks 




Repeat For 
Each 

Independent 
Task 



TCBX - Dependent Tasks 



TCBX - Service Required 





Repeat For 
/• Each TCBX 
Requiring Service 

^ LCB - Reentrant Modules 



Repeat for 
Each 
' Dependent 
Task 





Repeat For 
► Each Reentrant 
Module 



Figure C-3. Task Management Control Tables 
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TMCT 

TMCTADEP 



TMCTLCBA 



TCBX 



TCBXLCT 



TCBXCWQ 



TCBXWQ-0 



TCBXDCVT 



TCBXRSTB 



TCBXPARM 



XCVT 



WOE - Current 



LCB - Reentrant Modules 





r 


WQLCB 






WQPARM 








Resource Table 






LCB - Task Modules 



LCBNEXT-0 



LCBEPNAM-Y 



Problem Parameters 



Figure C-4. Control Block Structure For Dependent Task 

(Dependent Task/Non-reentrant Module Y Currently Active) 
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TMCT 



TMCTAIND 



TMCTLCBA 



TCBX 



TCBXNAME-A 



TCBXLCB 



TCBXCWQ 



TCBXWQ 



TCBXDCVT 



TCBXRSTB 



TCBXPARM 



XCVT 



LCB - Reentrant Modules 



LCBNEXT 



LCBEPNAM-Z 



j7 



1 




WQE - Current 



WQLCB 



WQPARAM 



LCB - Task Modules 



WQE - Queued Requests 




Problem 
Parameters 



> — i 



Repeat For Each 
Work Request 
For This Task 



LCBLCBA 



LCBNEXT 



LCBEPNAM 



M l 



Repeat For 
Module Reques 
For This Tar' 



Problem Parameters (current) 



Resource Table 



Figure C-5. 1. Control Block Structure For QP/QH Tasks 

(Independent Task A/Reentrant Module Z Currently Active) 
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ILLUSTRATIONS 



The execution of user programs during realtime operation may be monitored 
by its Generalized Trace Facility (see 0S/VS1 Service Aids Manual for 
description and use of GTF) with a TRACE option of USR specified provided 
two branch no-op switches in the PATCH monitor routine (DPPTMON) at 
location DPPTGTF1 and DPPTGTF2 are changed from a X'4700' to a X'45F0 f . 
Patch's to high level language module may be monitored by modifying two 
other branch no-op switches in DPPTPMON at location DPPTGTF3 and DPPTGTF4 
from a X'4700' to a X*45F0'. Abnormal termination (ABEND) of user 
routines may be monitored by modifying a branch no-op switch in the exit 
routine, DPPTETXR, at location DPPTGTFS from a X'4700' to a X'45F0'. 
The user data recorded by GTF for each event will have the following: 



+0 
+8 
+16 

+24 
+28 
+32 
+36 
+40 



GTDSECT 



Entry Point name of the user routine 



Task name 



Queue Holder name 
(if applicable) 



Work Queue ID 



GTF ID 



A (Active TCB) 



A(PATCHing Task TCB) 



unused 



unused 



unused 



Figure C-5.2. GTDSECT-User Data Record where GTF ID identifies the type 
of data. That is: 



X'01' 
X'02' 
X'll' 
X'12' 
X'22' 



indicates entry to user routine. 

indicates exit from user routine. 

indicates entry to HLL user routine. 

indicates exit from HLL use routine. 

indicates abnormal termination of user routine. 
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The major control blocks referenced by Data Base Management routines can 
be located from the Primary Array Locator Table (DBALTPRI) as shown in 
Figure C-6. The Primary Array Locator Table, as a whole, contains one 
entry for each data base array. Each entry is described by the DBALTPRI 
DSECT. These entries are arranged sequentially so that a particular array 
entry can be referenced by multiplying the length of each array by the array 
number and then adding the result to the address of origin of the Primary 
Array Locator Table. The Secondary Array Locator Table, as a whole, 
contains one entry for each data base array. Each entry is described by 
the DBALTSEC DSECT These entries are also arranged sequentially for 
indexing by array number as with the Primary Array Locator Table. The 
logging control block, as a whole, contains one entry for each log array. 
Each entry is described by the DBLOGCB DSECT. These entries are arranged 
sequentially, but are not indexed by the use of an array number. Instead, 
the associated DBALTPRI for tha specified log array contains a numeric 
value (DBALTNDX) to be added to the address of origin of the log control 
block to locate the associated DBLOGCB entry. The Direct Access DDNAME 
table, as a whole, contains one entry for each direct access data set. 
Each entry is described by the DBDADD DSECT. These entries are also 
arranged sequentially for indexing by the numeric value (DBALTNDX) as 
with the log control block. Figure C-7 shows this relationship. 

The relationship between the VS resident loggable array and the direct 
access resident log array is shown in Figure C-8. 

The data base offline utility builds the Primary and Secondary Array 
Locator Tables, the log control block, and the Direct Access DDNAME Table 
for use in online execution. The data base array (or PDS member) , 
@INIT, contains this information in the data record as shown in Figure 
C-9. The data base offline utility also constructs a PDS member for 
each specified array. Figures c-10, Oil, and C-12 show the PDS 
members build for VS resident arrays, VS resident loggable arrays, and 
DA resident arrays, respectively. 

The two major Time Management control blocks are shown in Figure C-13 . 
The time array described by TIMED DSECT is part of the VS resident data 
base. The PTOEs are built in response to a PTIME request and are deleted 
whenever the service request has been completed. 

The LOCK/DEFLOCK control blocks (LOCKCBLK and WAITCBLK) are shown in 
Figure C-14. The LOCKCBLKs are constructed in response to a 
DEFLOCK request. WAITCBLKs are constructed in the user's save area, 
whenever a resource is requested by a LOCK macro call but has been pre- 
viously reserved by another task. 



( 
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DBLOGCB 



DBALTPRI 



DBALTDTA 



DBALTNDX 



+ Origin 



or 



DBDADD 



Figure C-7. DBALTPRI Index Pointer for Log Arrays and DA Arrays 



LICENSED MATERIAL - PROPERTY OF IBM 



DBALTPRI 



VS Resident 

Loggabie 

Array 



DBALTDTA 



DBALTNDX 



+ Origin of DBLOGCB 



Log Header 



VS Resident 
Array Data 



DBLOGCB 



Loggabie 
Array Data 



DBALTPRI 



MPALTSIZE) + PALT Origin 



DA Resident 
Logging Array < 



DBALTDTA 



DBALTNDX 



DBLGLAID 



+ Origin of DBDADD 




Logging 

Array 

Copies 



DBDADD 



Figure C-8. VS Resident Loggabie Array/DA Resident Log Array Relationship 
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PDS Directory Entry 




Item Control 
Record 



Data Record 



DBIITEMR 



DBII#ARY(N) 



DBII#LCB(M) 



DBII#DDN(L) 



DBIIRES2 



DBIIDARY 



DBALTSEC #(NM 



DBALTSEC HDR 



DBALTSEC #1 



DBALTPRI HDR 



DBALTPRI #1 



DBALTPRI #(N-1) 
DBLOCCB HDR 
DBLOGCB #1 



DBLOCCB #(M-1) 
DDN HDR 
DDN #1 



DDN #(L-1) 



Figure C-9. DB Initialization Array PDS Directory Entry 
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/ 

DBINIT DD ... 




R 



DBLHANAM 
DBLHWNAM 
DBLHCOPY 
DBLHFREQ 
DBLHBKCP 



Array Data 



Figure C-ll . VS Resident Array with Logging PDS Directory Entry 



014 
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Figure C- 12. DA Resident Array PDS Directory Entry 
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VS Resident Data Base 



SCVT 




TIMED Array 


SCVTTIME 
SCVTTQET 









-►PTQE 



PTQENEXT 



PTQEINVL 



1 



Repeat for 
► each unique 
PTIME request 



Figure C-13. Time Management Control Blocks 
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SCVT 




■^LOCKCBLK 



LOCKNEXT 



LOCKWAIT 



Repeat for 
y each unique 
resource 



**WAITCBLK 



Wait Next 


i 




Wait ECB 















Repeat for 
each task 
wait for 
this resource 



Figure C-14. LOCK-DEFLOCK Control Blocks 
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The data recording and playback data set is a QSAM sequential data set 
which contains the data collected as a result of the RECORD macro. It is 
made up of fixed length physical records which contain variable length 
logical records. The size of each physical record is specified through 
the BLKSIZE=pararaeter of the DRECOUT DD card when recording the data. 
Any given logical record may span two or more physical records . 

The data set consists of three types of logical records: date records, 
pad records, and data records. 

A date record is written at the beginning of the data set and whenever the 
date in the Special Real Time Operating System Time Array changes. 

A pad record is written at the end of a physical record whenever there are 
less than 50 but more than 0 unused bytes in a physical record. 

A data record is written as the result of a RECORD macro. 

Whenever a date or data record spans more than one physical record, the 
data that is not on the initial physical record is preceded by a subheader 
on each physical record until the end of the logical record. 

The format of each logical record is described in Figures C-15 through 
C-17. 
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10 















flag | unused 


length 


flag 




length 


header 



10 jb 40 42 44 



i 

time array j Li) 


ID 


ID 


• » • 



Bytes 



Field 
Name 



4 bits flag 
2 length 
4 bits flag 



28 



2-92 



length 



time array 



ID, 



ID, 



Field Description, Meaning, Contents 

Flag 4 is specified. 

The entire length of the data. 

0 - Date record contained entirely within 

one physical record. 

1 - Date record spans two or more 

physical records. 

Length is 0 if flag is 0. Length is the 
number of bytes of the logical record 
contained on the physical record if 
flag is 1. 

A copy of the Special Real Time Operating 
System time array contained in the data 
base. 

Valid three-digit hexadecimal numbers 
that may be used in recording data. 



Figure C-15. Date Record 
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Flag 



End of physical record 



Unused 



Bytes 



4 bits 



Field 
Name 

flag 



Field Description, Meaning, Contents 

This field contains a flag of 6 which 
indicates that the remaining data on 
this physical record is invalid. 



Figure C-16 Pad Record 
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10 



flag 


ID 


length 


time 


length 



header 



10 



End 



Recorded Data 



Bytes 



4 bits 



Field 
Name 

flag 



Field Description, Meaning, Contents 

0 - Data contained entirely within one 

physical record. 

1 - Data spans two or more physical 

records. 



12 bits ID 



length 
time 



Three-digit hexadecimal ID supplied 
during data recording (RECORD macro) . 

The length of the entire data record. 

Time contained in the Special Real 
Time Operating System time array when 
the data was recorded, measured in 
decimal 10 milliseconds units - 
HHMMSSth. 



2 length If flag is 0, length is 0. 

Length is the number of bytes of the 
logical record contained in the 
physical record if flag is 1. 



Figure C-17 Data Record 
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The message data set is a partitioned data set. The data set contains 
variable length records, the maximum size is 291 bytes. Each message 
is identified by a unique three-digit number. To avoid duplication of 
numbers, each subsystem of the Special Real Time Operating System will 
be assigned a unique set of numbers (this is by convention only) for its 
message. 



1. Directory Entry: 



12 



14 



DPPnnnM 



TTRC 



Size 



nnn - Message number 

tftf - Blank spaces 

TTRC - Relative track position 

Size - Message length 



2. Member: 



10 



291 



Flag 


RC 


AC 


Lgth 


#V 


L,CONV , SN , DISP 


4 



n 



Text 



There will be a L, CONV, SN, DISP field for each variable specified. 

Flag - Flag byte in hexadecimal 

0 - do not affix date to message 

1 - affix date to message 
RC - routing code in hexadecimal 
AC - action code in character 

Lgth - length of message in hexadecimal 



Figure C-18 Message Data Set Format 
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The CINFD table is placed in the 0S/VS1 nucleus during the Special 
Real Time Operating System SYSGEN. In systems without External 
Interrupt Handling, it resides in the pageable nucleus; otherwise, in 
the fixed nucleus. The SETPSW routine returns the address of this 
table in register 1. 



CINFD 



+0 


Contain the constant C'CINF 1 






CINFDTIT 




+4 


Address of the Type I SVC Branch Table in 
module D0MISVC1 (DPPTYP1T) 






CINFDT2T 




+8 


Address of the Type II SVC Branch Table in 
module D0MISVC2 (DPPTYP2T) 




CINFDPRB 


CINFDFRC 




+12 


Nonzero if 
continuous 
monitor or 
PROBE 
active 


Failover/ 
restart 
writes can 
be done if 
zero. 





Figure C-19 CINFD Without External Interrupt Handling 
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The remainder of the CINFD table exists only in systems with external 
interrupt handling. 



+24 



10 



+28 



10 



+32 



10 



+36 



+40 



10 



10 



+44 



10 



+48 



10 



+52 



10 



+12 

10 




CINFDPSW 






CINFDPSW 




+16 10 


Save 0S/VS1 EXT. NEW PSW 






CINFDPSW 




CINFDTPE 


RESERVED 


+20 io 






External time 
standard period 
in seconds 





CINFDPSS 

Address of substitute external FLIH (DOMICEXT) 



CINFDEB1 

ECB for Failover confirmed external interrupt 



CINFDTC1 

Addr of TCB that is waiting on CINFDEB1 



CINFDEB2 

ECB for External Time sync interrupt 



CINFDTC2 

Addr of TCB that is waiting on C1NFDEB2 



CINFDCLK 

TOD clock value when external time sync received 



CINFDCLK 



POST 

Eligibility 
Bits 
(Note 1) 



CINFDFLI 
X*00 f - 
Substitute 
Ext.FLCH 
not ini- 
tialized 



CINFDCC 
Condition 
code from 
STCK in- 
struction 
(Bits 2-3 
of Byte) 



CINFDGEN 
Feature Bytes 
(Note 2) 



Figure C-20 CINFD with External. Interrupt Handling 
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The remainder of the CINFD table exists only in systems with Special 
Real Time Operating System clock comparator support. 



+56 



10 



+60 



10 



CINFDEB3 

ECB for clock comparator interrupt 



CINFDTC3 

Addr of TCB that will wait on above 



Note 1 

CINFDEC1 
CINFDEC2 
CINFDEC3 

Note 2 

CINFDBTM 
CINFDBSW 

CINFDBCP 
CINFDEC4 



1XXX X/CXX 

xlxx xxxx 
xx lx xxxx 



lxxx xxxx 
xlxx xxxx 

xx lx xxxx 
XXX 1 xxxx 



CINFDEB1 can be posted 
CINFDEB2 can be posted 
CINFDEB3 can be posted 



Ext. time standard SYSGENed 

Failover confirmed 
interrupt SYSGENed 

Special Real Time Operating 
System clock comparator 
support SYSGENed 

Set when failure confirmed 
signal received 



Figure C-21 CINFD with Clock Comparator Support 
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This section describes the first 620 bytes of the failover/restart 
bootstrap module (Module DOMIRBT) . 







D0MBVAD1 


+0 


Virtual address 


of first 2K of bootstrap 






D0MBRAD1 


+4 


Real address of 


first 2K of bootstrap 






D0MBVAD2 


+8 


Virtual address 


of second 2K of bootstrap 






D0MBRAD2 


+12 

10 


Real address of 


second 2K of bootstrap 






D0MBVAD3 


+16 10 


Virtual address 


of DOMIRNIP 






D0MBRAD3 


+20 1Q 


Real address of 


DOMIRNIP 






D0MBVWK 


+24 10 


Virtual address 


of work area 






D0MBRWK (64 bytes) 


+28 

10 


Up to 16 real addresses of work area (32K maximum) 






DOMBWKL 


+92 io 


Length of work 


area (32K maximum) (Note 1) 






D0MBCHRS 


+96 io 


CCHH of start of real storage dump pn failover/restart 



Figure c-22 D0MB00TH —Failover/Restart Bootstrap Header (Page 1 of 
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+100 



10 



DOMBCHRE 

CCHH of end of Real Storage dump on failover/restart 
data set 



+104 



10 



DOMBCHPS 

CCHH of start of paging data sets copy on failover/ 
restart data set 



+108 



10 



DOMBCHPE 

CCHH of end of paging data sets copy on failover/ 
restart data set 



+112 



10 



DOMBCHJQ 

CCHH of start of SYS1. SYSJOBQE dump on failover/ 
restart data set 



+116 



10 



DOMBCHJQ 

CCHH of end of SYS1. SYSJOBQE dump or failover/ 
restart data set 



+120 



10 



D0MBC2JQ 

CCHH of start of first SYS1. SYSJOBQE data set 



+124 



10 



D0MBC2JQ 

CCHH of end of first SYS1. SYSJOBQE data set 



+128 



10 



D0MBC3JQ 
Addr of UCB containing 
first SYS1. SYSJOBQE 
data set. 



D0MBCHJ2 (162 Bytes) 
CCHHCCHH/ 

CCHHCCHH & UCB for next 9 
SYS1. SYSJOBQE data sets if any 



+292 



10 



DOMBCHSW 

CCHH of start of SYSl.SYSWADS dump on failover/restart 
data set 



+296 



10 



DOMBSCHSW 

CCHH of end of SYSl.SYSWADS dump on failover/restart 
data set 



Figure C-22 D0MB00TH — Failover /Restart Bootstrap Header (Page 2 of 6) 
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+300 



10 



+304 



10 



+308 



10 



+312 



+316 



10 



10 



+320 



10 



+324 



10 



+328 



10 



+332 



10 



+336 



10 



+340 



10 



+344 



10 



D0MBC2SW 

CCHH of start of SYS1.SYSWADS data set 

D0MBC2SW 

CCHH of end of SYS1.SYSWADS data set 



D0MBC3SW 
UCB addr for 
SYS1.SYSWADS 



Data set (MASTER 
partition) 



Data set (MASTER 
partition) 



(MASTER partition) 



D0MBCHS1 
CCHH of start of SWADS dump on 
f ailover /res tart 



D0MBCHS1 
CCHH of end of SWADS dumper on 
failover /re start 



D0MBC2S1 

CCHH of start of SWADS1 data set 



D0MBC2S1 
CCHH of end of SWADS1 data set 



D0MBC3S1 
UCB address of SWADS data set 



D0MBCHS2 

CCHH of start of SWADS 2 dump on f ailover/restart 
data set (SLAVE Partition) 

D0MBCHS2 

CCHH of end of SWADS 2 dump on f ailover/restart 
data set (SLAVE Partition) 

DOMBC2S2 

CCHH of start of SWADS 2 data set (SLAVE Partition) 

DOMBC2S2 

CCHH of end of SWADS 2 data set (SLAVE Partition) 



DOMBC3S2 
UCB address SWADS 2 
data set 



DOMBCHSP 



Reserved 



Figure C-22 DOMBOOTH — Fa ilover /Restart Bootstrap Header (Page 3 of 6) 
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+348 



10 



+352 



10 



+356 



10 



+360 



+364 



10 



10 



+368 



10 



Reserved 



Reserved 



Reserved 



DOMBTCBU 

Address of MASTER RT Job Step TCB 



DOMBTCBO 

Address of SLAVE RT Job Step TCB or zero 



D0MBWT0A 
Address of a 3210 
or 3215 console 



Reserved 



DOMBCTLR 

Control registers 0-15 (64 bytes) 



+432 



+496 



10 



10 



+500 



10 



+504 



10 



+508 



10 



+512 



10 



DOMBGPR 

Registers 0-15 for reserve (64 bytes) 



DOMBRPSW 



Resume PSW (8 bytes) 



DOMBRPSW 



DOMBCPUI 
Target for a STIDP instruction 



DOMBCPUI 



DOMBCKC 

Clock comparator value at restart write 



Figure C-22 D0MB00TH— Fail over /Res tart Bootstrap Header (Page 4 of 6) 
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+516 



10 



+520 



10 



+524 



+528 



+532 



+536 



10 



10 



10 



10 



+540 



10 



+544 



10 



+548 



10 



+552 



10 



+556 



10 



DOMBCKC 



DOMBCK 

TOD clock value at restart write 



DOMBCK 



DOMBPT 

CPU timer at restart write 



DOMBPT 



DOMBSTE 



Real storage size 



DOMBTYP 

UCBTYP field of f ailover/restart data set 



DOMBMAXB 

Maximum blocksize of device containing failover/ 
restart data set 



DOMBCC 
Number cyl of device 
containing failover/ 
restart data set 



DOMBHH 
Tracks/cyl of device 
containing f ailover/restart 
data set 



D0MBFACT 

Device dependent information 



DOMBTOL 
Device dependent information 



Figure C-22 D0MB00TH — Failover/Restart Bootstrap Header (Page 5 of 6) 
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DOMBDSCB 


+560 

10 


DSNAME (44 bytes) and BBCCHHK of format 1 
DSCB of failover/restart data set (52 bytes) 




DOMBTIME 


+612 io 


Registers 0 and 1 from TIME macro at restart write 


+616 io 


DOMBTIME 


Note 1: 


The length of the work area 'is the same as the 



maximum blocks ize of the device where the 
failover/restart data set is allocated. 



e C-22 D0MB00TH- — Failover /Res tart Bootstrap Header (Page 6 of 
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CONTROL BLOCKS 

The following pages contain reference information about content and 
format of Special Real Time Control Blocks. The control blocks 
described here are used by more than one module of the system. The 
block descriptions appear in this section in the order that they appear 
in this index. 



DSECT 


DESCRIPTION 


MACRO CALL 


DBALTPRI 


Primary Array Locator Table 


DBALTPRI DSECT 


DBALTSEC 


Secondary Array Locator Table 


DBALTSEC DSECT 


DBARRAYD 


Array Macro Expansion 


DBARRAYD DSECT 


DBBLOCKD 


Block Macro Expansion 


DBBLOCKD DSECT 


DBDACNTL 


DA Array Control Header 


DBDACNTL DSECT 


DBDADD 


DA DDNAME Table 


DBDADD DSECT 


DBDEFD 


DBDEF Macro Expansion 


DBDEFD DSECT 


DBD1RB 


Data Base Directory Entry - BLDL 


DBDIRB DSECT 


DBDIRR 


Data Base Directory Entry - READ 


DBDIRR DSECT 


DBDMPHDR 


DUMPLOG Header Record 


DBDMPHDR DSECT 


DBITEMD 


Item Macro Expansion 


DBITEMD DSECT 


DBLOGCB 


Data Base Logging Control Block 


DBLOGCB DSECT 


DBLOGHDR 


Data Base Logging Header 


DBLOGHDR DSECT 


DBPBT 


Data Base Page Boundary Table 


DBPBT DSECT 


WAREA 


Data Base Offline Work Area 


DBWAREA 


BRT1 


Type 1 SVC Branch Table 


DPPXBRT 


BRT2 


Type 2 SVC Branch Table 


DPPXBRT 


DRT 


Data Recording Table 


DRECBLKS 


GFCB 


GETWA / FREEWA Control Block 


DPPXBLKS GFCB=Y 


GFBE 


GETWA / FREEWA Block Entry 


DPPXBLKS GFCB=Y 


IMP 


Input Message Processing Table 


IMPBLKS 


LCB 


Load Control Block 


DPPXBLKS LCB-Y 


LOCKCBLK 


LOCK Control Block 


DPPXBLKS LOCK^Y 


WAITCBLK 


WAIT Control Block 


UPPXBLKS LOCK=Y 


RCT 


Message Pointing Code Table 


MSGBLKS 


MDT 


Message DCB Table 


MSGBLKS 


MDAT 


Message Address Table 


MSGBLKS 


PT1MEL 


PTIME Parameter List 


DPPXBLKS PTIMEL=Y 


PTQE 


PTIME Queue Element 


DPPXBLKS PTQE=Y 


PWQE 


PURGEWQ Parameter List 


PWQE 


REPL/SUPL 


PATCH/REPATCH Parameter List 


DPPXBLKS REPL-Y 


PROBL 


User Parameter List 


DPPXBLKS REPL=Y 


SCVT 


Special Real Time Operating System 
Communications Vector Table 


DPPXBLKS SCVT-Y 


STAEBLK 


STAE Command Control Block 


STAEBLK 


STAEXBK 


STAE User EXIT Interface 


STAEXBK 


TCBX 


TCB Extension 


DPPXBLKS TCBX=Y 


TIMED 


Time Array DSECT 


DPPXBLKS TIMED=PTIME 


TMCT 


Task Management Control Table 


DPPXBLKS TMCT=»Y 


WQE 


Work Queue Element 


DPPXBLKS WQ=Y 


XCVT 


Subsystem Communication Vector Table 


DPPXBLKS XCVT=Y 
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***************** ********************************* ******************** 

* * 

* PRIMARY ARRAY LOCATOR TABLE * 

* * 
************** *** *************** 4* 4*4 4 ******** ****** ********** ******** 

* * 

* FUNCTION - CONTAIN HIGH USAGE INFORMATICN FOR LOCATING ANO LSING * 

* A CATA BASE ARRAY • * 

* * 

* REFERENCED BY - CONTROL BLOCK * SCVT - LABEL = SCVTALOC * 
* 

******** ** ************************** * * ******************* ****** ******* 

000 OBALTPR I OSECT 

************** 4 *********** 4***4* 4444 * 4 4* 4 * **** 4 44**4 ****************** 

* * 

* THESE LABELS DESCRIBE THE CATA IN THE FIRST ENTRY C ENTRY 0) CF * 

* THE TABLE. ENTRY 0 CONTAINS CONTROL INFORMATION AND POINTERS. * 

* * 
********************************************************************** 

000 DBALTBG1 OS OF 

000 0BALT2N0 OS F A( SECCNOARY ALT) 

004 OBALTLCB OS F A (LOGGING CONTROL BLOCK TABLE) 

008 OBALTCC OS F AICA DONAME TABLE) 

OOC DBALTEN1 DS OF 

0BALTSZ1 EQU 0 BALT ENi-CBALTBGl PRIMARY ALT ENTRY SIZE 
******************************************** ************* ************* 

* * 

* THESE LABELS DESCRIBE THE CATA IN ALL SUBSEQUENT ENTRIES OF * 

* THE TABLE. THERE IS ONE ENTRY FOR EACH OATA BASE ARRAY. * 

* * 
************** 4 *********************** 4* ********************* ********* 



OOC 




ORG 


0BALTBG1 






*DBRES 


BIT 


7 ON - 


CA RESIDENT OFF - VS RESIDENT 


000 


DBRES 


OS 


XL(B«00000001« 


) 


001 




ORG 


*-B«00000001» 






♦DBBLOCK 


BIT 


6 ON - 


BLOCKED OFF - UNBLOCKED 


000 


CBBLOCK 


DS 


XL CB •00000010' 


) 


002 




ORG 


*-B«00000010« 






*DBAL IGN 


BIT 


5 CN - 


VS PAGE BOUNCARY ORIGIN 




* 




OFF - 


VS OOUBLEWCRD BOUNCARY ORIGIN 


000 


DBALIGN 


DS 


XL(B*00000100* 


) 


004 




ORG 


*-B•00000100• 






*0BM IN 


BIT 


4 CN - 


ALIGN TO OCCUPY MINIMUM NUMBER OF VS 




* 






PAGES - VALID ONLY IF BIT 5 IS OFF 




* 




OFF - 


USE BIT 5 TO DETERMINE BOUNDARY 


000 


OBMIN 


DS 


XL(B*00001000* 


) 


008 




ORG 


♦-B'OOOOIOOO* 






♦OBINIT 


BIT 


3 CN - 


INITIALIZE ARRAY CATA TO VS - VALID 




* 






ONLY IF BIT 7 IS OFF 




♦ 




OFF - 


DO NOT INITIALIZE ARRAY DATA TO VS 


000 


DBINIT 


OS 


XLIB'OOOIOOOO* 


) 


010 




ORG 


*-B«00010000» 






*CBRE INT 


BIT 


2 ON - 


AFTER RESTART, REINITIALIZE VS ARRAY 




* 






FROM LOG DATA SET - VALID ONLY IF 




* 






BIT 7 IS OFF 




* 




OFF - 


00 NOT REINITIALIZE ARRAY 


000 


OBPEINT 


DS 


XL(8*OOL00OOO« 


1 
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020 




ORG 


*-B» 00100000* 






♦DBLOG 


BIT 


I ON - 


LOGABLE VS 4RRAY - VALID ONL 




* 






BIT 7 IS OFF 




* 




OFF - 


ARRAY IS NCT LOGABLE 


000 


OBLOG 


OS 


XKB' 01000000* 


) 


040 




ORG 


*~8*O100C000' 






♦DBDUMMY 


BIT 


0 CN - 


OUMMY ARRAY - NO INITIALIZAT 




* 






PROCESSING In ILL BE PERFORMED 








OFF - 


REAL ARRAY 


000 


DBDUMMY 


OS 


XL(B» 10000000" 


) 


080 




ORG 


*-B«lO0OOOOC« 




000 


OBALTFLG 


DC 


X^OO* 






DBALTCTA 


EQU 


OBALTFLG 




001 




OS 


AL3 


DATA ADCRESS/TTR 


004 


OBALTBCT 


OS 


H 


BLOCK CCUNT 


006 


08AL TBAS 


OS 


H 


BLOCK SIZE/ARRAY SIZE 


008 


OBALTBFT 


OS 


XL I 


BLOCKS ON FIRST TRACK 


009 


DBALTBOT 


OS 


XL1 


BLOCKS CN OTHER TRACKS 


00A 


OBALTNOX 


OS 


H 


DADD/LOGCB TABLE INDEX 



( 
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Figure C-24. DBALTSEC 



*********** **************** ******* ******** ******** ******************** 

* * 

* SECONDARY ARRAY LOCATOR TABLE * 

* ♦ 
********************************************** «*«*4******************* 

* * 

* FUNCTION - CONTAIN LOW LSAGE I NFORHAT ICN FOR LOCATING AND LSING * 

* A CAT A BASE ARRAY * 

* * 

* REFERENCED 6Y - CONTROL BLOCK = CBALTPRI - LABEL = CBALT2N0 * 

* CONTROL BLOCK * DBPBT - LABEL = CBPBT ALT * 
******** 4* ************** »****♦♦***♦♦** *** ********************* ******** 

OOO DBALTSEC DSECT 

************************************** ******************************** 

* * 

* THESE LABELS CESCRIBE THE C ATA IN THE FIRST ENTRY (ENTRY 0) CF * 

* THE TABLE. ENTRY 0 CONTAINS CONTROL INFORMATION AND POINTERS. * 

* * 
********************************************** ************************ 



000 


CBALTBG2 


OS 


OF 










000 


CBALT#NO 


DS 


H 






NUMBER OF NUMBEREC ARRAYS PLLS 


CNE 


002 


DBALTNLM 


DS 


H 






NUMBEREO OF ARRAYS PLUS ONE 




004 


DPALTPBT 


DS 


F 






A {P AG E BOUNCARY TABLE 




008 


DBALTPBS 


DS 


F 






SIZE OF PAGE BOUNCARY TABLE 




OOC 


DBALTUNS 


DS 


F 






UNUSED 




010 


DBALTEN2 


DS 


OF 












DBALTSZ2 


EQU 


D8ALTEN2- 


DBALTBG2 


SECCNCARY ALT ENTRY SIZE 






********************************************************************** 

■A. * 




* THESE 


LABELS DESCRIBE 


THE 


DATA 


IN ALL SLBSECUENT ENTRIES OF 


* 




* THE TABLE. 


T HERE IS 


ONE 


ENTRY 


FOR EACH OAT A BASE ARRAY. 


* 
* 




****** 4 ***** 4 * ************************************ ******************** 


010 




ORG 


0EALTBG2 










000 


CBALTNAM 


DS 


CL8 






ARRAY NAME 




0 08 


DBALTICB 


DS 


F 






ITEM CONTROL BLOCK TTR 




OOC 


CBALT IRS 


DS 


H 






NUMBER OF ITEM CCNTRCL BLOCKS 




OOE 


DBALTUSE 


DS 


XLl 






ARRAY USE CODE 




OOF 


DBALTLCG 


DS 


XLl 






ARRAY LCG FREQUENCY CODE 






DPALTREC 


EQU 


2048 






ITEM CONTROL BLCCK RECORD SIZE 
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Figure C-25. DBARRAYD 













* 




* 




ARRAY MACRC EXPANSION DSECT 


+ 












* 


000 


DR AR R A VP) 


nccr t 








o oo 

\J \J\J 


p R AO C TO T 


n c 


OF 






000 


DRARNAMF 


u o 


CL8 


ARRAY NAME 




ooa 

w w O 


DRAR RKT T 


L/ ■> 


H 


BLOCK CCUNT 




OO A 

\J \J M 


nft AR RK <; 7 

u d m r\ l} fy o c 


LI O 


H 


BLOCK SIZE 




ooc 


CRARCCKM 


is O 


CL8 


CA/LOG DO NAME 




0 14 


OR ARES 


OS 


XL(B* 00000001* ) 






0 1 5 




ORG 


*-B*0000000l* 






014 


DRABLOCK 

w v' 9* w w V> r> 


0 S 


XL<R*00000010*) 






0 1 6 




drg 


*-B*000000LC* 






014 




L* *> 


XLCB* 00000100* ) 






0 1 ft 




ORG 


*-B*00000100' 






014 


DRAM IN 


LI 3 


xlib'ooooiooo* ) 






oi r 




nop 

U r\ vj 


*-B*0000l000* 






0 1 4 


OR A T M I T 


n ^ 

U J 


XL(B*00010000«) 






n?4 




ORG 


*-B*O0OlOOOO* 






0 1 4 


OR AR P 1 NT 




XL(B* 00100000 • ) 






034 




ORG 


*-B* 00100000* 






014 


\J w M L. v* \J 




XL ( B*0 1000000* ) 






0^4 




no r 
u »> o 


*-B*01000000* 






0 1 4 


DRAnilMHV 


L/ J 


XL(B* 10000000* ) 






094 




n r r. 


*-B* 10000000* 






0 1 4 


DRARPI ^ 


r r 

L. L, 


X*00* 






u n 


UCAK U j C 


r» c 
U o 


X 


USE CCDE 




nit 


nR aoai rc. 


r c 


XL ( B ' 10000000* ) 






096 




CRG 


*-B* 10000000* 






016 


DBARFLG2 


OC 


X*00* 






017 


CBARUNUS 


OS 


X 


UNUSEC 




oia 


DBAPUP0 


OS 


H 


UPCATE LEVEL 




01A 


CPARUNS2 


ns 


H 


UNUSEC 




0LC 


CRAR TCBS 


OS 


V. 


A( ITEM CONTRCL BLCCK 


START) 


020 


D BAR I C BP 


DS 


V 


AUTEM CCNTRCL BLCCK 


STOP) 


024 


CBARCTAS 


OS 


V 


A < ITEM CATA START) 




028 


DBAROTAP 


DS 


V 


A( ITEM CATA STOP) 




02C 


D8ARN0IT 


OS 


A 


NUMBER CF ITEMS 




030 


CBARN0BK 


OS 


A 


NUMBER OF BLOCK CCNTROL BLCCKS 


034 


CBAPST0P 


DS 


OF 








CBARSIZF 


EQU 


DBARSTOP-CBARSTRT 
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Figure C-26. DBBLOCKD 



************ * * ********************** ** 4* ************** **************** 

* * 

* BLCCK MACRO EXPANSION DSECT * 

* * 
********************************************************************** 



000 


CBBLCCKD 


DSECT 






000 


CBBKSTRT 


OS 


OF 




000 


DBBKSNUM 


DS 


H 


START BLOCK NUMBER 


002 


CEBKPNUM 


OS 


H 


STOP BLOCK NUMBER 


004 


CPBKBK IS 


cs 


V 


A ( BLOCKED ICB START) 


0C8 


DBBK BK IP 


ns 


V 


AIPLOCKEO ICB END) 


OOC 


OPBKBKOS 


OS 


V 


A ( BLOCKED ITEM DATA START) 


010 


DBBKBKDP 


OS 


V 


A ( BLOCK ED ITEM CATA END) 




DPBKSTOP 


OS 


OF 






CBBKSIZE 


FCU 


CBEKSTOP— DBBKSTRT 





Figure C-27. DBDACNTL 



****************************** **************** ************************* 

* * 

* DA ARRAY CONTROL I- E ACER * 

* * 
*********************************************************************** 



000 


DBCACNTL 


DSECT 








000 


DPCABGN 


DS 


OF 






000 


DBDANAME 


DS 


CL8 


DA ARRAY NAME 




008 


DBDATTR 


DS 


AL4 


RELATIVE TTR CN CA DATA SET 




OOC 


CBCABKTL 


DS 


XLl 


RECORDS WRITTEN CN FIRST DA 


TRACK 


000 


DBDABKCT 


DS 


XLl 


RECORDS WRITTEN CN OTHER DA 


TRACKS 


OOE 


CBCAUNUS 


DS 


XL2 


UNUSED 




010 


OBOAEND 


DS 


OF 








OPCASIZE 


EQU 


DBCAEND- 


DBDABGN 




010 


OBOACTTR 


DS 


XL4 


CBCACNTL RECORD TTR CN 


PDS 


014 


DBDABKCT 


DS 


XL2 


CA ARRAY BLCCK COUNT 




016 


DBDABKSZ 


DS 


XL2 


DA ARRAY BLOCK SIZE 




018 


DBCASTCP 


DS 


OF 








DBCALNTH 


EQU 


OBDASTOP 


-DBCABGN 
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Figure C-28 (1 Of 3). DBDADD 



000 



********** *«** 4 ********************* * ********* «* ****** ************ 

* * 

* DIRECT ACCESS DDNAME TABLE * 

* * 
********************************************************************** 

* * 

* FUNCTION - CCKTAINS A DCB FOR EACH CATA BASE CATA SET, EACH * 

* BOAM OCB IS PRECEEOED BY THE AOOR OF A LOCK CNTL BLOCK * 

* * 

* REFERENCED BY - CCNTROL BLOCK * CBALTPRI - LABEL = CBALTDO * 

* * 
********************************************************************** 

OBDADO DSECT 

********************************************************************** 

* * 

* HEACER FCP DCNAME TABLE * 

* * 
************************************ ** **** ****** ************* ********* 



000 


DBDDBGN 


DS 


OF 




000 


DBDDKUM 


DS 


F 


NUMBER CF ENTRIES 


004 


DBDDUPD 


OS 


H 


CURRENT UPCATE LEVEL 


006 




DS 


H 


SPARE 


008 




OS 


F 


SPARE 



ooc 
ooc 

OiC 

020 
021 
024 
026 
028 

02C 
02D 
030 
031 

034 
03C 
03D 
03E 

040 
041 
044 
048 
04A 
04C 



************** 4* *** ******************* ****** 4* * ****** ******* ********** 

* * 

* DATA BASE PARTITIONED C*TA SET CCB * 

* * 
********************************************************************** 
* 
* 

DBDDI K IT 
* 



CATA CCNTROL BLOCK 



DIRECT ACCESS 



COMMCN ACCESS 



DC 0F»0» 

DC BL16'0* 

DC ACO) 

DC ALKO) 

DC AL3(l) 

DC AL2I0) BUFL 

DC BL2«00O000lC0C00O0O0« 

DC A(l) IOBAO 

FOUNCATION EXTENSICN 

DC BL1» OOCOOOOC 

DC AL3< 1 ) ECDAD 

DC BLl'OOOOOOOO* RECFM 

DC AL3I0) EXLST 

FOUNCATION BLOCK 

OC CL8 •DBIN IT' DDNAME 

DC BLl'OOOOOOiO* OFLGS 

DC BLl'OGOOOOOO* 

DC BL2 , 0010010C00100100« 

B SAM— BP AM— OS AM 

DC BLl'OOOOOOOO* 

DC AL3CI) 

OC AIL! 

DC H'O' 

DC AL2I0) 

DC F«0« 



ORIGIN CN WORD BCUNOAR Y 
DEVICE INTERFACE 
FDADt DVTBL 
KE YLEtDEVTf TRBAL 
METHOD INTERFACE 
BUFNO 
BUFCB 

DSORG 



BFTEK tBFLNt HI ARCHY 



IFLG 



MACR 

INTERFACE 



RER1 



GERRt PERR 



CHECK, 
SYNAD 

CIN01, CIND2 
BLKSI2E 

WCPC, WCPL, CFFSP, 



OFFSW 
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Figure C-28 (2 Of 3). DBDADD 



050 




DC 


A( 1 ) 




ICBA 


054 




DC 


AIUOI 




NCP 


055 




DC 


AL3< i J 




ECE R» ECBAD 










BS AM-8PAM 


INTERFACE 


C58 




DC 


A ( I ) 




EOBW 


05C 




DC 


H» 0» 




DIRCT 


05E 




DC 


AL2(0I 


LRECL 




060 




DC 


A f 1 } 




CMRLi NOTE, POINT 


C64 


DB00END1 


DS 


OF 








DBDDLM 


EQU 


C8DDEN01- 


CBDOIN IT 





DC B FOR RE AC I NG COMPOSITE ITEMS ARRAY 



************* ********** ***♦*****♦**♦♦*********»♦#»♦*»♦***♦♦♦♦* ******** 



DATA CCNTROL BLOCK 





U D b U L t Uj 


nr 

u v. 


OF • 0* 




ORIGIN 


CN WORO BOUNCARY 




* 






OIRECT ACCESS 


DEVICE 


INTERFACE 


\JO*r 






BL16 , 0» 




FCAD, 


DVTBL 


Ull 




nr 


A( 0 J 




KEYLE 


t DEVT »TRB AL 




* 






COMMON ACCESS 


METHOD 


INTERFACE 


UIO 




n r 


AL110) 




BUFNC 




U r V 




DC 


AL3(l ) 




BUFCB 




f\ ~rr 
U i L 




DC 


AL2 (0 ) 


BUFL 






f\ ~7 C 

07c 




DC 


BL2 , 010GOCCCCC000000 1 




DSORG 


n a a 
UoO 




DC 


Ad ) 




IOBAD 












FOUNCATION EXTENSION 




084 




DC 


BLl 9 OOOC00OG» 




BFTEK.BFLNt HIARCHY 


C85 




DC 


AL3( 1 ) 




ECCAD 




088 




DC 


B L I • 00000000 * 


RECFM 




089 




DC 


AL3(0) 




EXLST 












FOUNDATION BLOCK 




08C 




DC 


CL8» DBCIOS» 


DCNAME 




094 




DC 


BL 1 • QOOOOOIO* 


OFLGS 




095 




DC 


BLl'CCCCOOOO 1 




IFLG 


096 




DC 


BL2» OOICOOOCOOIOOOOO 1 


MACR 






* 






BSAM— BPAM— QSAM 


INTERFACE 


098 




DC 


BL1 •00000000* 






099 




DC 


AL3( n 




CFECK, 


GERR, PERR 


09C 




OC 


All » 




SYNAD 




OAO 




DC 


H«0* 




C IND1, 


CIND2 


0A2 




DC 


AL2«0) 




BLK SIZE 


0A4 




DC 


F» 0 9 




WCPO, 


WCPL, CFFSP, OFFS* 


OAS 




DC 


A( 1 > 




IOBA 




OAC 




DC 


ALl (0) 




NCP 




OAD 




DC 


AL3( 1 ) 




ECBR , 


EOBAD 










BSAM— BP AM INTERFACE 




OBO 




DC 


A( I 1 




EOBW 




0B4 




OC 


H« 0» 




CIRCT 




086 




DC 


AL2(0I 


LRECL 






088 




OC 


All 3 




CNTRL, 


NCTE v POINT 


OBC 


DBDDEND2 


DS 


OF 










DBDDLN2 


EQU 


DBDDEND2 


-DBCDCIDS 






OBC 


DBDOHEND 


DS 


OF 










DBDDFDRS 


EQU 


OBO CH END- 


-C8CDBGN 







RERl 
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08C 



* END OF HEADER AREA * 
******************************** ******** ****** ****************** ****** 

ORG CBOCBGN 

************** *♦ ******************* 4 4 4**4***4* 4*44 4* 4 4 **************** 

* * 

* BCAfl CAT A SET LOCK CCNTPCL BLOCK POINTER ANC CCB ENTRIES. * 

* ONE ENTRY FOR EACH BDAM DATA SET IN THE DATA BASE. * 

* * 
***************** ********************* 4***** 4*4* 4* 4****** ****** 4 4***** 



OOO 
004 



DBDOLCCK OS 
ORG 

*,**♦ IHB061 

* 

* 



A 

♦♦16 

DON AME 



A(LOCK CONTROL BLCCK FOR THIS DCBJ 



NOT SPECIFIED 
DATA CONTROL 



BLOCK 



014 




ORG 


*-16 TC ELIMINATE UNLSED SPACE 


004 


DBCDDCB 

U W l> KJ \J W *-/ 


OS 


0F*0' ORIGIN CN WORD POUNDARY 


004 




ORG 


*+16 TO ORIGIN GENERATION 


014 




OC 


A(02 KE YL E. DEVT. TRfl AL 




* 




COMMON ACCESS METHOD INTERFACE 


018 




OC 


ALlfO) BUFNO 


01 9 




DC 


AL3 f 1 J BUFCB 


OIC 




OC 


AL2I01 BUFL 


01 E 




DC 


BL2 "OO1G00CC000C00O0 • DSORG 


020 




DC 


A f 1 I IOBAO 




* 




FOUNDATION EXTENSION 


024 




DC 


BLl • 00000000* BFTEK tBFLNt HI ARCHY 


025 




DC 


AL3U) ECDAO 


028 




DC 


BLl • 00000000 • RECFM 


029 




DC 


AL3(0) EXLST 




* 




FOUNCATION BLOC. 


02C 




DC 


CL8«0« r ;CNAME 


0 34 




DC 


BLI'OOOOOOIO 1 L«-«.GS 


035 




DC 


BLl* 00000000* IFLG 


036 




DC 


BL2•O0illC000ClllO10• MACK 




* 




BOAM INTERFACE 


038 




DC 


BLl'OOOOOOOC 


039 




DC 


AL3 < 1 ) CFECK 


03C 




DC 


Afli SYNAD 


040 




DC 


H«0» 


042 




DC 


AL2(0» BLKSIZE 


044 




DC 


A(l) IOBSQ 


048 




DC 


All) SCND 


04C 




DC 


All) ICBUQ 


050 




DC 


A ( 1 1 UCND 


054 




DC 


A<0) LIMCT 


058 




DC 


FM" XCNTt XARG 


05C 




DC 


All) DROX 


060 




DC 


All) DFOR 


064 




DC 


Ml) CF8K 


068 




DC 


All) DYNB 


06C 


OBDDEND 


OS 


OF 




CBOOESZ 


EQU 


OBDDENO-CBOCLOCK 
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Figure C-29. DBDFFD 



*** *« *4 * 4* ************************ **** ******** ******** ******** * *** * ** * 

* * 

* CBCEF MACRC EXPANSION DSECT * 

* * 
************ 4 44 444 ************ **************** ****4444 ******* 44*4***** 



000 


DBDEFD 


OSECT 






000 


OBDFSTRT 


OS 


OF 




000 


DBDFhDS 


OS 


OF 




000 


DBDFNAMA 


OS 


A 


A(FPP KAME ) 


004 


DBDFNAME 


OS 


CL8 


FPP NAME 


00c 


OBDFFPPE 


OS 


V 


A ( END CF FPP INPIT ) 


010 


OBOFHOP 


OS 


OF 






DBDFFCSZ 


6QU 


CEDFHOP-CBDFHOS 




010 




ORG 


DBDFHOS 




000 


DBDFOPTN 


OS 


X 


OPTION BYTE 


001 


CBDFUNUS 


DS 


XL3 


UNUSEO 


004 


DBDFOEFE 


OS 


V 


A< END OF THIS OBDEF) 


008 


DBDFNO AR 


OS 


A 


NUMBER OF ARRAYS IN THIS 


ooc 


DBDFSTOP 


OS 


OF 






OBOFSIZE 


EQU 


OBDFSTOP-DBCFSTRT 
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Figure C-30 (1 Of 2). DBDIRB 



****** 4*44 4*4 44 *444****444444 444 44 44 4 4 44 ****** 44 4*4* ********* ********* 

* * 

* DATA BASE C IREC TORY ENTRY - BLDC FORMAT * 

* * 

************* *4*4 4 4 4 ****** **************** *************** ************* 



000 


0B01RB 


OSECT 






000 


OBCIBBGN 


DS 


OH 




000 


OBOIBFF 


OS 


AL2 


NUMBER OF BLDL LIST ENTRIES 


002 


DBDI BLL 


DS 


AL2 


LENGTH OF EACH BLDL LIST ENTRY 


004 




ORG 


OBCIBBGN 




000 


DBDIBNAM 


DS 


CL8 


ARRAY NAME 


008 


OBOIBICB 


DS 


AL3 


ITEM CONTROL BLOCK RECORD TTR 


008 


OBOIBK 


DS 


AL1 


CCNCATENATICN NUMBER 


OOC 


OBOIBZ 


DS 


AL1 


LIBRARY TYPE 


000 


OBOIBC 


DS 


AL1 


COUNT - SIZE OF LSER DIRECTORY DATA 


OOE 


OBOIBDTA 


DS 


AL4 


TTRN - FIRST DATA RECORD 


012 


DBDIBNUM 


DS 


AL2 


NUMBER OF ITEMS 


014 


DBOIBBAS 


DS 


AL2 


BLOCK /ARRAY SIZE 


016 


DBDIBUSE 


DS 


All 


USE CODE 




♦OBBRES 


BIT 


7 CN - 


DA RESIDENT OFF - VS RESIDENT 


017 


OBBRES 


DS 


XL(B»0000000l» 


) 


018 




ORG 


*-B«00000001« 






♦DBBBLOCK BIT 


6 ON - 


BLOCKED OFF - UNBLOCKED 


017 


OBBBLOCK 


DS 


XL! B'OOOOOOIO 1 


I 


019 




ORG 


*-B«000OOO10« 






♦DBBALIGN BIT 


5 ON - 


VS PAGE BOUNDARY ORIGIN 




* 




OFF - 


VS DOUBLEUCRD BOUNCARY ORIGIN 


017 


OBBAL ICN 


DS 


XL(B , 00000100 < 


) 


01B 




ORG 


*-B»00000100' 






♦DBBMIN 


BIT 


4 ON - 


ALIGN TO OCCUPY MINIMUM NUMBER OF VS 




4 






PAGES - VALID ONLY IF BIT 5 IS OFF 




4 




OFF - 


USE BIT 5 TO DETERMINE BOUNDARY 


017 


OBBMIN 


DS 


XL(8«OO00l000» 


1 


OIF 




ORG 


»-B«00001000» 






♦DBBINIT 


BIT 


3 CN - 


INITIALIZE ARRAY CATA TO VS - VALID 




4 






ONLY IF BIT 7 IS OFF 




4 




OFF - 


DO NOT INITIALIZE ARRAY CATA TO VS 


017 


DBBINIT 


DS 


XUB'OOOIOOOO* 


i 


027 




ORG 


*-B»00010000» 






♦CBBREINT BIT 


2 ON - 


AFTER RESTART, REINITIALIZE VS ARRAY 




4 






FROM LOG CATA SET - VALID ONLY IF 




* 






BIT 7 IS OFF 




4 




OFF - 


DC NOT REINITIALIZE ARRAY 


017 


DBBREINT 


DS 


XLCB'OOIOOOOO' 


1 


037 




ORG 


*-B»00100000» 






*DBBLOG 


BIT 


1 ON - 


LOG ABLE VS ARRAY - VALID CNLY IF 




4 






BIT 7 IS OFF 




4 




OFF - 


■ ARRAY IS NCT LOGABLE 


017 


DBBLOG 


DS 


XLf B'OIOOOOOO' 


) 


057 




ORG 


*-B«0100000C» 






♦OBBOUMMY BIT 


0 CN - 


DUMMY ARRAY - NO INITIALIZATION OR 




4 






PROCESSING HILL BE PERFORMED 




4 




OFF - 


- REAL ARRAY 


017 


DBBDUWMY 


DS 


XLIB'IOOOOOOO' 




097 




ORG 


*-B«lOCO0000» 




017 


OBOIBFLG 


DC 


X»00» 




018 


OBOIBBCT 


DS 


AL2 


BLOCK COUNT 
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Figure C-30 (2 01 2). DBDIRB 



01A DBOlBASO DS AL2 ARRAY 10 

01C DBOIBUPD DS AL2 UPOATE LEVEL 

01E 0B01BEN0 OS OH 

DBDIBSIZ EQU CBOIB END-DBC I B8GN SIZE OF 0 IRECTORY 



LICENSED MATERIAL - PROPERTY OF IBM 



Figure C-31. DBDIRR 



************** 
* 
* 

* * 

4***********4*4444*4<4'************4>4***********4***4**«*>»*4>*««4*4*«*«** 



******************************************************** 

* 

CAT A RASE DIRECTORY ENTRY - REAC FORMAT * 



000 


DBDIRR 


D SEC T 






000 


ORCIRBGN 


OS 


OH 




000 


DBOIRNAM 


DS 


CL8 


ARRAY NAME 


008 


CBDIRICB 


DS 


AL3 


ITEM CONTROL BLCCK RECORD TTR 


00B 


DBDIRC 


DS 


AL 1 


COUNT - SIZE OF USER 0 1 RECTOR Y 


OOC 


DBDIRDTA 


CS 


A L4 


TTRN - FIRST DATA RECORD 


OiO 


DPDIRNUM 


DS 


AL 2 


NUMBER OF ITEMS 


012 


CBDIRB AS 


CS 


AL2 


BLOCK/ ARRAY SIZE 


014 


DPDIRUSE 


DS 


ALl 


USE CCDE 




* CBRRES 


BIT 


7 CN - 


DA RESIDENT OFF - VS RESIDENT 


015 


DBRRES 


DS 


XL ( B* 00000001 * 


) 


016 




CRG 


*-8»00000001 • 






* D BR BLOCK 


BIT 


6 CN - 


BLOCK EO OFF - UNBLOCKED 


015 


CBRBLCCK 


DS 


XL ( B* 000000 10 • 


) 


017 




ORG 


*~R» OC00001 C 






♦ DBRAL IGN 


1 BIT 


5 ON - 


VS PACE ROUNCARY CRIGIN 




* 




OFF - 


VS DOUBL EWQR D BOUNDARY ORIGIN 


015 


DBRALIGN 


DS 


XLIB'OOOOOIOO' 


i 


019 




ORG 


♦ -B^OOOOIOO* 






*CBRM IN 


BIT 


4 ON - 


ALIGN TO OCCUPY MINIMLM NUMBER OF VS 




* 






PAGES - VALID ONLY IF BIT 5 IS OFF 




* 




OFF - 


LSE BIT 5 TO DETERMINE BCUNDARY 


015 


DPRMIN 


DS 


XL { B'OOOOIOOO* 


) 


OlD 




ORG 


*-B«0000100C» 






* DBR IN IT 


BIT 


3 CN - 


INITIALIZE ARRAY CATA TC VS - VALIC 










CNLY IF BIT 7 IS OFF 




* 




OFF - 


DO NOT INITIALIZE ARRAY CATA TO VS 


015 


DBRINIT 


CS 


XLIB'00010000' 


) 


025 




ORG 


*-B»0C01000C» 






♦CBRREINT BIT 


2 CN - 


AFTER RESTART, REINITIALIZE VS ARRAY 




* 






FRCM LOG CATA SET - VALID CNLY IF 




* 






BIT 7 IS OFF 








OFF - 


• DC NOT REINITIALIZE ARRAY 


015 


DRRREINT 


DS 


XLIB'OOIOOOOO' 


) 


035 




ORG 


*-B»001CC00C» 






♦CBRLOC 


B IT 


I CN - 


LCGABLE VS ARRAY - VALID CNLY IF 










BIT 7 IS OFF 




* 




OFF - 


• ARRAY IS NCT LOGABLE 


015 


DPRLOG 


CS 


XL( B'OIOOOOOO' 


) 


055 




CRG 


♦-B'OIOOOOOC 1 






♦CBRCUMMY BIT 


0 CN - 


DUMMY ARRAY - NO INITIALIZATION OR 




* 






PROCESSING WILL BE PERFCRMED 




* 




CFF - 


■ REAL ARRAY 


015 


OBRDU^Y 


DS 


XL ( B* 10000000' 


• » 


095 




CRG 


*-B» 10000030' 




015 


DBDIRFLG 


DC 


X«00« 




016 


CPDIRBCT 


ns 


A L 2 


BLCCK CCUNT 


018 


DBDIRA ID 


DS 


AL2 


ARRAY ID 


01A 


DPOIRUPD 


DS 


AL2 


UPCATE LEVEL 


01C 


DBDIREND 


DS 


OH 






OBDIRS IZ 


ECU 


CBDIREND-DBCIRBGN SIZE CF DIRECTORY FNTRY 



INFO 
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Figure C-32. DBDMPNDR 



********************************************************************** 

* * 

* DUHPLCG HEACER RECORD * 

* * 

********************************************************************** 



000 


DBDMPHOR 


DSECT 






000 


DBCMPBGN 


OS 


OF 




000 


0B0MPAL1 


DS 


3F 


PRIMARY ALT — CBALTPRI 


ooc 


CBDMPAL2 


OS 


4F 


SECONCAPY ALT — DEALT SEC 


oic 


DBOMPASZ 


DS 


F 


ARRAY SIZE 


020 


CPDKPLCB 


CS , 


12F 


LOGGING CONTROL BLOCK — CBLOGCB 


050 


DBDMPSTM 


DS 


F 


START TIME - FRCM DUMPLOG RECLEST 


054 


DBCMFSCA 


CS 


H 


START CAY — FRCN DUMPLOG RECLEST 


056 


OPCMPUNl 


DS 


H 


UNUSEC 


058 


DBDPPETM 


OS 


F 


END TIME - FROM DUMPLOG REQUEST 


05 C 


DBCMPEOA 


OS 


H 


END CAY — FRCM DUMPLOG RECLEST 


05E 


DP. DMPUN2 


DS 


H 


UNUSEC 


060 


DBDMPUN3 


DS 


12F 


UNUSED 


090 


DBDMPLSR 


DS 


XL256 


USER CAT A AREA 


190 


OBDMPEND 


CS 


OP 






DBDMPSIZ 


EQU 


C RCMPEND-C BCMPBGN 


SIZE CF DUMPLGG HEACER RECCPD 



Figure C-33. DBITEMD 



************** 4****************************************** ************* 

* * 

* ITEM MACRC EXPANSION DSECT * 

* * 

********************************************************************** 



000 


DB ITEMD 


OSECT 








000 


OR I TSTPT 


ns 


OF 






000 


OB I T NAME 


DS 


CL8 


ITEM 


NAME 


008 


DBITLEN 


OS 


X 


ITEM 


LENGTH 


009 


DB ITTYPE 


DS 


X 


I TEM 


TYPE 


OOA 


CP ITCISP 


DS 


H 


ITEM 


CISPLACEMENT 


OOC 


OR ITA ID 


OS 


H 


ITEM 


ARRAY ID 


OOE 


DRITRPT 


DS 


H 


ITEM 


REP IT I T ICNS 


010 


DB ITSTCP 


DS 


OF 








OBITSIZE 


EQU 


OBITSTOP-OBITSTPT 







IN ARRAY 
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Figure C-34. DBLOGCB 



444 *********** ******************************************************** 

* * 

* LCGGING CCNTPCL ELOCK * 

* * 

************** 4** ***************************************************** 



000 



I NFCPMAT ICN TC CCNTFCL LOGGING CF 



REFER ENCED BY - CCNTPOL BLOCK = CBALT PR I - LABEL = CBALTLCB 



* FUNCTION - CONTAINS NECESSARY 

* CATA BASE ARRAYS 

* 

* 

*4f^***** ****** 4 ********************** 4 4* * * **************************** 

CBLOGCR OSECT 

****************************** ********************i****** ****** ******* 

* * 

* THE SF LABELS DESCRIBE THE CATA IN THE FIRST ENTRY (ENTRY 0) CF * 

* THE TABLF. ENTRY 0 CONTAINS CONTROL INFORMATION AND POINTERS. * 

* * 
****** 4*4* ** 44 ******************************************************** 



000 


DBLGBGN 


ns 


OF 




000 


CBLGNUM 


cs 


F 


NUMBER CF ENTRIES 


004 


DBLGFR CO 


DS 


A 


LCG FPEO. 0 LIST 


008 


CBLGFRC1 


DS 


A 


LCG FPEC. 1 LIST 


OOC 


DBLGFR C2 


DS 


A 


LOG F RE C 2 LIST 


010 


DBLGFR Q3 


0$ 


A 


LOG FPEC. 3 LIST 


014 


DRLGUNLS 


CS 


7F 


UNLSEC 


030 


DB L G END 


DS 


OF 






DBLGESZ 


FQU 


DBLGENC-CBLGBGN 


ENTRY SIZE 


030 




ORG 


CBLC-BGN 





********************************************************************** 

* * 

* THESE LABELS DESCRIBE T I- E CATA IN ALL SUBSEQUENT ENTRIES CF * 

* THE TABLF. THERE IS CNE ENTRY FOR EACH LCGA8LE ARRAY IN THE * 

* DATA BASE. * 

* * 
********************************************************************** 



000 


DBLGANAM 


OS 


CI. 8 


ARRAY NAME 


G08 


DBLGLNAM 


DS 


CL8 


LOG ARRAY NAME 


010 


DBLGCT IM 


DS 


F 


CURRENT ENTRY TIME 


014 


DRLGCDAY 


ns 


H 


CURRENT ENTRY CAY 


016 


DRLGCBLK 


DS 


H 


CURRENT ENTRY BLOCK NUMBER 


018 


DBLGFT IM 


DS 


F 


FIRST ENTRY TIME 


01C 


DBLGFCAY 


DS 


H 


FIRST ENTRY CAY 


OlE 


CBLGAID 


DS 


H 


ARRAY ID 


0 20 


DBLGLT I M 


DS 


F 


LAST ENTRY TIME 


024 


CBLGLCAY 


DS 


H 


LAST ENTRY CAY 


026 


DBLGLAID 


DS 


H 


LOG ARRAY IC 


028 


DBLGWNAM 


DS 


CL8 


WRAP ARCUND PROCESSOR NAME 
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Figure C-35. DBLOGHDR 



000 



********************************************************************** 

* * 

* LOGGING HE ACER * 

* * 
************************************ ******** ************* ************* 

* * 

* FUNCTION - THE ICG HEAOER IMMEC I AT ELY PRECEEDS THE C AT A FOR * 

* ALL LCGABLE CAT A BASE ARRAYS • IT CONTAINS DATA * 

* NECESSARY FOR PROPER LOGGING AND RETRIEVAL OF ARRAY * 

* CAT A . * 

* * 
****** **************************************************************** 

DBLC1CHDR DSFCT 

********************************************** ************************ 

* * 

* THESE LABELS DESCRIBE THE LCG FEACER AS IT APPERARS IN VIRTUAL * 

* STORAGE AND ON EACH L OGGFD COPY OF AN ARRAY, * 

* * 
********************************************************************** 



BLGCKS 



000 


OBLHBGN 


CS 


OF 




000 


DBLFCT IM 


DS 


F 


CURRENT ENTRY TIME 


004 


DBLHCC AY 


DS 


H 


CURRENT ENTRY DAY 


006 


DBLHCBLK 


CS 


H 


CUPRFNT ENTRY BLOCK 


008 


DPLHRKCT 


PS 


H 


BLOCK CCUNT - NUMBER OF 


OOA 


DRLFBKEK 


DS 


XLi 


NUMBER BLCCKS PER ENTRY 


OOB 


DBLHUPD 


DS 


XLl 


LPCATE LEVEL 


OOC 


CBLFBKSZ 


DS 


H 


BLOCK SIZE 


OOE 


OBLHLAID 


DS 


H 


LOG ARRAY ID 


010 


DBLHPTIM 


DS 


F 


PREVIOUS ENTRY TIME 


014 


CPLHPCAY 


DS 


H 


PREVIOUS ENTRY CAY 


016 


DBLHPBLK 


DS 


H 


PREVIOUS ENTRY BLCCK 


018 


DBLHEND 


DS 


OF 






DBLHSIZE 


EQU 


CRLFENO-CBLFBGN 


LOG FEACER SIZE 



********************************************************************** 

* * 

* THESF LABELS DESCRIBE TFE LCG HEADER AS IT APPEARS CN THE * 

* INITIAL DATA FOR EACH LOGABLE CAT A BASE ARRAY. * 

* * 
********************************************************************** 



018 
000 
008 
CIO 
012 
013 



DBLHANAM 
DBLHWNAM 
DBLHCOPY 
OBLHFPEO 
DBLFBKCP 



ORG 

DS 

DS 

DS 

DS 

DS 



CBLF8GN 

CL8 

CL8 

H 

XLl 
XLi 



LOG ARRAY NAME 
LCG WRAP AR POUND 
LOG COPIES 
LCG FREQUENCY 
BLCCKS PER COPY 



PKOCE SSOR 
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Figure C-36. DBPBT 



********************************************************************** 

* * 

* PAGE BCUNCARY TABLE * 

* * 
************** 4** **************************************** ************* 

* * 

* FUNCTION - CONTAINS ADDRESSES OF ENTRIES WITHIN CBALTSEC THAT * 

* ARF ON VIRTUAL STORAGE PAGE BOUNCARIES. * 

* * 

* REFERENCED BY - CCNTPCL BLCCK = SCVT - LABEL = SCVTAPBT * 

* CONTROL BLOCK = CBALTSEC - LABEL = CBALTPBT * 

* - * 
********************************************************************** 

OOO DBPBT DSECT 

********************************************************************** 

* * 

* THESE LABELS DESCRIBE THE CATA CONTAINED IN EACH ENTRY OF THE * 

* TABLE. TFE FIRST ENTRY PCINTS TO THE FIRST ARRAY ENTRY IN THE * 

* CBALTSEC CCNTPCL TABLE. EACH SUBSEQUENT ENTRY PCINTS TO THE * 

* LAST CBALTSEC ENTRY ON EACH VIRTUAL STORAGE PAGE CCCLPIED BY THE * 

* OBALTSEC. THE LABEL CBALTPBS IN THE CBALTSEC CCNTAINS THE * 

* SIZE OF THE PAGE 80UNCAPY TABLE. * 

* * 
**************** 4 ***************************************************** 

000 CBPBTBGN DS OF 

000 CBPBTN AM DS C18 ARRAY NAME 

008 DBPBTALT DS F A ( S ECCNCAR Y ALT ENTRY) 

OOC DBPBTEND DS OF 

DBPBTESZ EQU C BPBT ENC-C ePBT BGN PBT ENTRY SIZE 
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Figure C-37 (1 Of 3). WAREA 

* ************* * ******************************************************** 

* * 

* DATA BASE FINAL PHASE PPCCESSCR WCRK AREA * 

* * 

+ 4* + * + + + + + ♦ ****************************************************,,,******* 



000 


WARFA 


nsEC t 






000 


AREASTRT 


DS 


OD 




000 


REGSAVE 


OS 


90 




048 


WAINPARM 


OS 


F 


A ( INPUT PARM LIST) 


04C 


WAR TNCOT 


DS 


H 


FPP RETURN CODE 


C50 


WASTART 


DS 


OD 




050 


WARLKPCS 


OS 


F 


PCS BLKSIZE 


054 


WABLKCOS 


CS 


F 


DCS BLKSIZE 


058 


WABLKNUM 


DS 


P 


HIGEST BLOCK NUMBER USEC 


05C 


WANXTBLK 


CS 


F 


A< WHERE NEXT OUTPUT RLK TC BE PUT) 


060 


W APR T*VC 


OS 


F 


SIZE OF PARTIAL BLOCK MOVED 


064 


WABL KPTR 


CS 


F 


A ( CUR R ENT BLOCK CONTROL 8LCCK) 


068 


WA ITMCNT 


DS 


F 


NUMBER OF ITEMS IN CBDEF 


06C 


WANE WCID 


DS 


F 


A ( NE W CID ITEM CCNTPCL BLCCKS 


070 


WADELTAB 


DS 


F 


A { D EL ET E AID TABLE) 


074 


WACL TBSZ 


DS 


F 


SAVE SIZE OF DELETE TABLE 


C78 


WADEL ARR 


DS 


F 


NUMBER OF DELETED ARRAYS 


C7C 


WANXTDEL 


DS 


F 


NEXT CELETE TABLE ENTRY 


C80 


WANE W A I D 


CS 


F 


NEW AIC COUNTER 


0 84 


WANXTD IR 


DS 


F 


NEXT AVAILABLE NEW DIR ENT 


C88 


WANEWCIR 


OS 


F 


NEW DIRECTORY ENTRY TABLE 


C8C 


WAN0IRS7 


DS 


F 


SIZE OF NEW DIR ENT TABLE 


090 


WAC I CBLK 


DS 


H 


C1CS 8LCCK COUNT 


092 


WARFFBLK 


DS 


H 


REFRESH ARRAY BLOCK COUNT 


C94 


WAI CBRUF 


DS 


F 


A(2048 EYTE OUTPUT BUFFER) 


098 


WAOLDC ID 


DS 


F 


A(2Q4E BYTE INPUT BUFFER) 


09 e 


WAICBTTR 


DS 


F 


SAVE ICP RECORD T TR 


0A0 


WADTATTP 


DS 


F 


SAVE C ATA RECORD TTR 


0A4 


WARE ITTR 


OS 


F 


REFRESH ARRAY ICB TTR 


0A8 


WAREDTTR 


DS 


F 


REFRESH ARRAY DATA TTR 


0AC 


WANEGA ID 


DS 


H 


NEGATIVE AKRAY ID 


OftO 




DS 


OF 




0R0 




DS 


H 


* AL IGN TO HALFWORC BOUNDARY 


0(32 


WAOBCIR 


DS 


32X 


* BLDL/STOfc AREA 


0 02 


W ARE F 0 IR 


CS 


32X 


REFRESH ARRAY 0 I R EC TOR Y ENTRY 


0F4 


WASA VR2 


DS 


F 


SAVE REG 2 


0F8 


WASA VR3 


DS 


P 


SAVE BAL REG 3 


OFC 


WASA VR4 


DS 


F 


SAVE BAL REG 4 


100 


WASA VR 5 


DS 


F 


SAVE REG 5 


104 


WASAVR9 


DS 


F 


SAVE A ( F IRS T ARRAY) 


■108 


WANUPARR 


OS 


F 


OLD APR 4 NEW ARR = TOTAL DB ARRAYS 


IOC 


WANUMNEW 


DS 


F 


NUMBER OF NEW ARRAYS 


110 


WANUMDEL 


OS 


F 


NUMBER OF DELETEC ARRAYS 


114 


WAUNSBLK 


DS 


F 


NUMBER CF UNUSED DIRECTORY BLCCKS 


118 


WAMJMBLK 


DS 


F 


NUMBER OF DIRECTORY BLOCKS 


11C 


WAOIPIN 


DS 


F 


FIRST INPUT DIRECTORY BLOCK 


120 


WADIROUT 


DS 


F 


FIRST OLTPUT DIRECTORY BLOCK 


124 


WACIRISZ 


CS 


F 


DIRECTOPY INPUT SIZE 


128 


WADIRCSZ 


DS 


F 


DIRECTORY OUTPUT SIZE 


12C 


WA0EC8SZ 


DS 


F 


SIZE CF DEC e STORAGE 
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Figure C-37 (2 Of 3). WAREA 



130 


WAC EC B AD 


DS 


F 




134 


WAA f OS IZ 


DS 


F 




138 


WAA I CTA8 


OS 


F 




13C 


WAZFPO ID 


ns 


F 




140 


WAINTTTR 


DS 


F 




144 


WAINTBUF 


CS 


8F 




164 


WAMC8DA 


DS 


F 




168 


WALMCBIG 


CS 


F 




16C 


WADARUF 


OS 


4F 




1 7C 


WANUMCLG 


DS 


F 




180 


WANUMNLG 


CS 


F 




184 


WANEWRET 


DS 


F 




188 


WANREFSZ 


ns 


F 




1 3C 


WANXTREF 


OS 


F 




190 


WAFSTCTA 


DS 


XL( B» 1CC00CCO 


' ) 


210 




ORG 


*-B» 1CCO0OCC " 




190 


WAD ELE TE 


DS 


xl( e« ooiooooo 


• > 


180 




ORG 


*-B • OOiOCQOC* 




190 


WATFST 


CS 


XLCB'OOOIQOOO 


• ) 


1 AO 




CRG 


*-P •OOOIOOOO' 




190 


WAARDLET 


DS 


XL (B'OCCOIOOO 


• ) 


198 




ORG 


*-P*00001000' 




190 


WAFSTICB 


DS 


XL( B» C00001 00 


• ) 


194 




ORG 


♦-B'OOOOOIOO' 




190 


WANEWPDS 


DS 


XL ( B 1 000000 10 


• ) 


192 




ORG 


♦-B'COOOOOiO* 




190 


WADIPECF 


DS 


XUB'COCOOOOl 


• ) 


191 




ORG 


*-B' 3000000 1 • 




190 


WAFLG1 


DC 


X»00' 




191 


WAPEPL 


DS 


XL( B» ICOOOOCO 


• ) 


211 




ORG 


*-B» ICCOOQOO 1 




191 


WAD T R END 


OS 


XLIB'OICOOOOO 


• ) 


101 




ORG 


♦-R'OIOOOOOO* 




191 


WAPRTBLK 


CS 


XL( B» 001 00000 


• ) 


181 




ORG 


*-B» OOiOOOOC* 




191 


WAINCCIR 


DS 


XKB'OOOIOOOO 


• ) 


1A1 




ORG 


*-B' 0001C000 1 




191 


WAFSTC IC 


DS 


XL(R» COOOIOOO 


• ) 


199 
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SIZE OF GETMAIN FOR AID TABLE 

A ( A I D UPDATE TABLE) 

A ( ZERO AID IN AID TABL E ) 



A(CPPXCBCA) 
A (DPPXOBLG) 
DA CNTL RECORD BUFFER 
NUMBER OF OLD LCGABLE ARRAYS 
NUMBER OF NEW LOGABLE ARRAYS 
A (NEW REFRESH TABLE) 
SIZE CF NEW REFRESH TABLE 
A (NEXT REFRESh TABLE ENTRY) 



AlCBASPCS DC B ) 
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Figure C-37 (3 Of 3). WAREA 
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Figure C-38 BRT1 
* 

* GENERATE CSECTS FCP BRANCH TABLES USED TO OBTAIN * 

* ENTRY POINT OF SRTDS SVC ROUTINES FCR BRANCH ENTRY * 
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10 = 


12 
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010 


BRT1WSVC 
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• 10' 
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EP=OPPTWSVC 


014 


BRTISVCP 
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018 
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Figure C-39. BRT2 
* 



* 
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Figure C-40. DRT 

000 DRT DSECT DATA RECORDING TABLE 

********************************************************************** 

* THE UATA RECORDING TABLb(DRT) IS AN INCORE TABLE WHICH CONTAINS A * 

* COPY OF THE SRTOS TIME ARRAY, VALID DATA RECORDING ID'S AND THE * 

* OPENED DATA RECORDING DCb.THE TABLE IS PUILT BY THE DATA RECORDING* 

* INITIALIZATION ROUTINE. THE TABLE IS POINTED TO BY THE SCVT AT * 

* LOCATION SCV1RWA * 

** ** A********* ******* A********************** ************************** 
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THE TIME ARRAY IS 28 bYTES 
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DRTJDAY 
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DRTMDAY 
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DRTEBC 
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DRTBDAY 
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* 
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ADDRESS OF DUMMY DATA RECORD MODULE 
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DRT END 
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Figure C-41. GFCB 
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- TMCT < TMCTGFCB ) 


000 


GFCBFLGS 
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X«0« 


FLAd BYTE 


001 




ORG 


GFCBFLGS 
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CFCBGFMB 


DC 


A(0 ) 


BK WD PC INTER TO GF MB 


004 


GFCBNEXT 


CC 


MO ) 


POINTER TC NEXT GFCB CN CHAIN ORIGINATING TMCTGFCB 


008 


GFCRFRST 


CC 


A(0 ) 


ADDRESS CF FIRST CORE LCC ALLOCATED FOR THIS SIZE 


ooc 


GFCB! AST 


DC 


A(0» 


ADDRESS OF LAST CORE LOC ALLOCATED FOR THIS SIZE 


010 


GFCBGFBE 


DC 


A(0) 


POINTER TO FIRST FREE GFBE IN FREE CHAIN 


014 


GFCB GFCB 


DC 


A( 0 ) 


PCINTER TC NEXT CFCB CN CHAIN ORIGINATING GFMB 


018 


CFCBFCNT 


DC 


H»0» 


# FREE BLCCKS CCNTROLLED BY THIS GFCB 


01 A 


GFCBtfRLK 


DC 


H« 0« 


* BLOCKS CCNTRGLLED ?.Y THIS GFCB 




* GFCBFLGS 


DEF INtTIONS 




GFCB IN IT 


EQU 


XV80* 


INITIALLY ALLOCATE GETWA SPACE 




GFCBFP EE 
* 


ECU 


X»40* 


ALL BLCCKS FOR THIS GFCB FREE 




* 

GFCBLNTH 


EQU 


♦-GFCB LENGTH OF GFCB 



* 

Figure C-42. GFBE 



000 GFBE DSECT 
* 

** GFBE = GETWA/FREEWA BLOCK ENTRY - CNE FDR EACH BLCCK OF COPE 

** REPRESENTED BY GFCB - APPFNDED 

** , CN END CF GFCB 

* - WHEN BLOCK IS FREE GFBE IS CN FREE CHAIN (GFCEFREE) 

* - WHEN BLOCK IS ALLOCATED - GFBE WILL BE CNE OF THE 

* - FOLLOWING CHAINS - TYPE = PC - TMCTEXGW 

* - TYPE = AT - TCBXTGWA 

* - TYPE = AP - TCBXOGWA 
* 

000 GF BE FLAG DC X'OO' FLAGS : 01 = BLCCK ALLOCATED 

C01 ORG GFBEFLAG 

000 GFBE NEXT DC A(0) ALLOC AT ED= PTR TC NEXT GFBE IN CIRCULAR CHAIN 

* NOT ALLOC= PTR TO NEX FREE GFBE 

004 GFBE IC DC X'OO* ALLCC AT EC= IC CF ASSOCIATED GFMB 

005 ORG GFBEID 

004 GFBFPREV CC A(OI ALLCC ATED= PTR TO PREV GFBE IN CIRCULAR CHAIN 

* NOT ALLOC= MEANINGLESS 
GFBELNTH F QU *-G F BE LENGTH OF GF PE 



( 
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Figure C-43. IMP 

000 IMP DSECT INPUT MESSAGE PROCESSING TABLE 

* Tl-E INPUT MESSAGE PROCESSING TABLE! IMP) IS AN INCORE TABLE WHICH * 

* CONTAINS THE VALID SRTOS SYSTEM OPERATOR COCES.TFE IMP CONTAINS * 

* INFORMATION UTILIZED BY THE SRTOS INPUT MESSAGE RCLTINES.IT IS * 

* INCLUDED AS ARRAY DPPXIMP IN THE CATA BASE AT SYSTEM BUILD TIME * 
000 IMPCNT DC XL2'0« NUMBER OF ENTRIES IN IMP 

* THE FOLLOWING PARAMETERS CONSTITUTE AN ENTRY * 
002 IMPCODE DC CL8» • THE ENTRY CODE 

OOA I MPT ASK DC CL8« • TASKNAME OF TASK TO BE PATCHEC 

0L2 IMPLM CC CL8 • • ENTRY POINT NAME OF THE LM TO PATCH 

OlA IMPID DC XLl'O' ID ASSIGNED LOAD MODULE WHEN PATCHED 

OIB IMPLGTH DC XLl'O* NUMBER CF BYTES IN ENTRY 

* THE NUMBER OF PARAMETER CONVERSION COCES I LENGTHS IS EQUAL TO THE 

* NUMBER OF PARAMETERS THAT MAY BE PASSED TO THE SPECIFIED LOAC MODULE 
OiC IMPCCN DC CLi 1 » CONVERSION CODES CF THE PARAMETERS 

* THAT MAY BE PASSED TO THE LOAD 

* MODULE. C-CHARACTER CATA 

* X-HEXADEC IMAL DATA F-FULLWORD DATA 
01D I MPARMLN DC XLl'O' LENGTH OF THE PASSED PARAMETER 



Figure C-44. LCB 
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ATTRIBUTES MCVEC IN F RC M P0S2ATRI AFTER BLDL 
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LCBUSFCT 


DC 
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USE COUNT FOR LCe ON TMCT-LCB PENT CHAIN 


OOC 




ORG 


LCBLSECT 


OOA 


LCBREQCT 


DC 


H» 0» 


REQUEST CCUNT FCR LC8 CN TCBX-LCB CHAIN 


OOC 


LCBEPAC 


CC 


A( 0 1 


ENTRY POINT ADDRESS 


010 


LCBEPNAM 


DC 


CL8» • 


. ENTRY POINT NAME 


0L8 


LCBBLDL 


DC 


MO) . 


ACDRESS OF BLDL TABLE FOR LCAC BY DPPTSMON 


OLC 


L C BECB AC 


DC 


A<0 » 


ADDRESS OF ECB THAT DPPTDLMP WAITS ON 




LCBLNTH 


EQU 


♦-LCB 


LENGTH OF LCB 




* LCBFL AGS EOU'S 






LCBFUNRS 


EQU 


X'OL 1 


LCB UNRESOLVEC BIT 




LCBFTMCT 


EQU 


X«04« 


THIS LCB IS CHAINED TO A TMCT-LCB CHAIN 




LCBFLOAD 


FQU 


X « 0 8 • 


LOAD PROCESSING BY DPPTSMCN REQUESTED 




LCBFDEL 


FCU 


X« 10' 


DELETE PROCESSING BY CPPTSMCN REQUESTED 




LCBFLMP 


ECU 


X* 20' 


LOAD MODULE PURGE RFQUFSTED 




* LCBATRI ECU 


• S 


THESE ATTRIBUTES ARE MOVEC IN FRCM PDS2 ATP I 




LCBARENT 


EQU 


X 1 80' 


REENTERABLE 




LCBAREUS 


EQU 


X • 40 ' 


REUSABL E 




LCBAOVLY 


EQU 


X«20 # 


IN OVERLAY STRUCTURE 




L CB AOL 


EQU 


X* C8' 


ONLY LOADABLE 




LCE AEXEC 


EQU 


X'02' 


EXECUTABLE 



\ 

J 
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Figure C-45. LOCKCBLK 
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LOCK 


CONTROL BLOCK 






*** 
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L OCKNEXT 


DC 
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ADDRESS OF NEXT LCCKCBLK 


004 


LCCK NAME 


DC 


CL4« • 


RESOURCE NAME 


008 


LOCKFLAG 


DC 


X' 00* 


RESOURCE RESERVE FLAG 


009 




ORG 


LOCKFLAG 




008 


LCCKTCBA 


DC 


A(0) 


ACCRESS OF TASK CCNTROL I NG RESCURCE 


OOC 


LOCKNFLG 


DC 


x»o» 




000 




ORG 


LOCKNFLG 




OOC 


LOCKWAIT 


DC 


A(0) 


ACCRESS OF WAIT CCNTROL B LCCK 


010 


LOCKXCVT 


DC 


A(C) 


A(XCVT ) 


014 


L flCKCN T 


DC 


H^O* 


NO. OF DEFLOCK'S FOR THIS RESOURCE 


018 


LOCK END 


OS 


OD 






LCCKLNTH 


EQU 


LOCKENO-LOCKCBLK 





Figure C-46. WAITCBLK 



000 WAITCBLK DSECT 

000 WAITFLAG DC 

001 ORG 
000 WAITNEXT OC 
004 WAITECB DC 

WAITENO FCU 

WAITLNTH EQU 



X«0 • 

WAIT FLAG 
A(0) 
F • 0 • 
* 

WAIT END- WAITCBLK 



RESOURCE RESERVE FLAG 

NEXT WAIT CCNTROL BLCCK 
WAIT ECB 
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Figure C-47. RCT 



000 



RCT DSECT MESSAGE POUTING CODE TABLES 

********************************************************************** 

* THE ROUTING COOE TABLE ( RC T ) IS AN INCCRE TABLE WHICH CONTAINS THE * 

* CCDES OF THE VALID SYSTEM MESSAGES DEVICES. THE ROUTING CODE TAfiLE * 

* CCNTAINS INFORMATION UTILIZED BY THE SRT(;S REAL TIME MESSAGE * 

* HANDLER.IT IS INCLUDED AS ARRAY DCMXSMPC IN THE CATA BASE * 
********************************************************************** 



000 
00* 
006 
008 



OOA 
OOB 



OOC 



OOD 



OOE 
OOF 
017 



RCTWTO 
RCTCNT 
RCTDDCNT 
RCTFPCNT 



DC 
DC 
DC 
DC 



XL 4 
XL2 
XL2 
XL2 



0» 

0* 
0* 
0» 



THE ENTRY 
RCTALTRC 

OC 

cc 



* 
* 

RCTRC 
RCTGROUP 
* 
* 
* 
* 
* 

RC TUN IT 

4c 
* 

RCTCEVCE 

* 

* 

* 

* 
* 

RCTALTRC 
* 

RCTCCNAM 
* 

RCTEP 



PARAMETERS 
PARAMETERS . 
XLl'O* 
XL1 •O* 



DC 



DC 



XLL ' 0 ' 



XL1' 0< 



DC 



CC 



DC 



XLl 'O* 



CL8 



CL 8 1 



WTO DESCRIPTOR AND ROUTING CCDES 
NUMBER CF ENTRIES IN TABLE 
NUMBER CF OCNAMES IN TABLE 
NUMBER OF ENTRY PCINT NAMES IN TABLE 
ARE THE RCTRC RCT GROUP RC TUN I T RCTDEVCE ANC THE 

ROUTING CODE ASSIGNEC TO A CEVICE 
FOR A DISPLAY DEVICE AN ACCESS AREA 
IS ASSIGNED. FOR AN CS DEVICE AN 
INDEX INTO THE DDNAME FIELD IS 
ASSIGNED. FOR A LOAD MODULE AN INDEX 
INTO THE ENTRY PCINT FIELD IS 
ASSIGNED. 

THIS FIELD CNLY HAS MEANING FCR A 
DISPLAY DEVICE. IT IS SET TC ZERO FOR 
ALL OTHER DEVICES. THE FUNCTIONAL 
AREA OF A DISPLAY IS ASSIGNED. 
BITS 0-3 DESIGNATES A 

FUNCTIONAL CR NCN-FUNC T IONAL DEVICE 
FLAG.l— FUNCTIONAL 0-NON-FUNCT ICNAL 
BITS 16-31 DESIGNATES THE DEVICE 
1-SYSTEM CONSOLE 2-OS DEVICE 
3-DISPLAY DEVICE 4-PESERVED 
5-LOAC MODULE 

AN ALTERNATE ROUTE CODE TO WHICH 
MESSAGF CAN BE PASSED 
OS DEVICE OCNAME TC WHICH MESSAGE 
CAN BE ASSIGNED. 

ENTRY POINT OF A LOAD MODULE TO 
WHICH MESSAGES CAN BE PASSED 



Figure C-48. MDT 



000 MDT DSECT MESSAGE DC B TABLE 

**************** *******^*** ******************************* ************* 

* THE MESSAGE CCB TABLE(MCT) IS AN INCORE TABLE WHICH CONTAINS THE * 

* OPENED OCR'S USED R Y THE SRTOS MESSAGE HANDLER. MDT IS BUILT BY * 

* THE MESSAGE HANDLER INITIALIZATION PROGRAM. THE TABLE IS POINTED * 

* TO BY THE MESSAGE ADDRESS TABLE(MCAT). * 
****** **************************************************************** 

000 MDTMSG OC CL94» • OPENED MESSAGE CCB 

* ANY NUMBER CF CSAM CUTPUT CCB»S CAN BE SPECIFIED * 

05E MDTQSAMl DC CL96' • OPENFD CSAM OUTPUT DCB 

OBE MDTQSAM2 DC CL96 1 • OPENEC CSAM OUTPUT DCB 

1 IE MDTQSAM3 DC CL96» • OPENED QSAM OUTPUT DCB 
17E MCAQSAM4 OC CL96« • OPFNED CSAM OLTPLT CCB 
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Figure C-49. MDAT 
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000 

001 

002 
004 

0 08 

00C 

CIO 
014 



MDAT DSECT MESSAGE ADDRESS TABLE 

^ 4 ************************************************** ************* 

* THE MESSAGE ADDRESS T ABL E ( MDAT ) IS AN INCORE TABLE WHICH CONTAINS * 

* THE ACDRESS'S CF LCCK CCNTROL BLOCKS, MSG RCT, OPENED DC 8 • S AND * 

* OTHER I NFCRMAT I ON UTILIZED BY THE SRTOS REAL TIME MESSAGE HANDLER * 

* IT IS BUILT BY THE MESSAGE HANDLER IN I T I AL I ZAT ICN ROUTINE. * 

* THE TABLE IS POINTED TO BY THE SCVT AT LOCATION SCVTMWA. * 

^^^^**** *********************************************** *************** 



MDATCNT 

MDATFLG 

MDATRES 

MDATLCK 

* 

* 

MDATLCKO 
* 

MDATRCT 
* 

MCATMCCB 
MCATODCB 
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OC 
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DC 

DC 

DC 



XLL«0 # 
XLl •0» 

A(0> 



A(0) 



A(0) 

A ( 0) 
A(0) 



NUMBER OF QSAM(OS DEVICE1DCB 

ADDRESS'S SPECIFIED 
RESTART FLG 

0- PRE RESTART 1- POST RESTART 
R FSERVE BYTE 

ACDRESS SRTCS LOCK CONTROL BLCCK 
UTILIZED BY MESSAGE MACRO PROCESSOR 
C DPPMMSG) 

ADDRESS SRTOS LCCK CONTROL BLCCK 
UTILIZED BY MESSAGE CUTPUT ROUTINE 
( DPPMMSGl J 

ACDRESS OF MESSAGE ROUTING CODE 
TABLE 

ACDRESS OPENED MESSAGE DATA SET CCB 
ADDRESS OF OPENED G S AM OUTPUT DCB 



Figure C-50. PTIMEL 



000 PTIMEL 
*** 

* 
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DSECT 
PT1ME 
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001 
004 
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008 
009 
OOC 
009 
OOC 
010 
014 



**♦ 

PTIMSFLG 
PT IMSTRT 
PTIMIFLG 
PTIM1NTL 
PT1MEFLG 
PT1MST0P 

PTIMCNT 
PT IMPTCH 
PTIMPARM 
PT IMPTQE 
PTIMLNGH 
* 

PT1MFPRG 
PTIMFDPC 
PTIMFDPW 
PTIMFAOR 

PTIMCFG 

PTIMREL 

PTIHTOD 

PTIMADJ 

PTIMADDR 

PTIMLN 



DC 

DC 

DC 

DC 

DC 

DC 

ORG 

DC 

DC 

DC 

DC 

ECU 

ECU 
EOU 
EOU 
EOU 

EQU 
EOU 
EOU 
EOU 
EOU 
EOU 



INPUT PARAMETERS 

REG 1 = ADDR.OF SUPERVISOR 

REG C = C => RET OPTION 
= 4 => ADD OPTION 

= I => MOD UPT10N 
= 12-> DLL OPTION 



LIST (IF REG 0 > ZERO) 



*** 
* 

* 

* 

*** 



XLl'O" 

AL3(0) 

XL1»0» 

AL3(0) 

XLl^ 

AL3<0) 

PTIMSTUP 

AL3(0) 

A(0) 

A(0) 

A(0) 

♦-PTIMEL 

PURGE OPTION FLAGS 

X'Ol • 

X«02» 

X»C4» 

X»4-0» 

TIME OPTION FLAGS 

X^OB^ 

X^Ol* 

X»02* 

X«P4» 

X»80» 

♦-PTIMEL 



TIME OPTION FLAG 

START TIME VALUFIOR ADDRESS ) 

PURGE OPTION FLAG 

INTERVAL TIME VALUE (OR ADDRESS > 

TIME OPTION FLAC 

STOP TIME VALUE (OR ADDRESS) 

COUNT VALUE 

PATCH SUPERVISOR LIST 

PATCH PROBLEM PARAMETER LIST 

PTOE ADDR FOR MOD OR DEL 



PURGE DPATCH = U 
PURGE DPATCH = C 
PURGE DEPATCH a W 
PTOE ID INCLUDED 

THIS FIELD CONTAINS COUNT VALUE 
RELATIVE TIME 
TOO TIME 
ADJUSTED TIME 

THIS FIFLD CONTAINS TIME ADDRESS 
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Figure C-51. PTQE 

COO PTOE OSECT 

** PTQE = PTIMER QUEUE ELEMENT 
* 

* A PTQF IS CREATED IN RESPONSE TC A PTIME MACRO CALL. 

* THE CHAIN OF PTQE'S IS POINTED TC BY THE SCVT (SCVTTQET). 
* 



000 


PTQENEXT 


DC 


ACQ) 
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FLAG BYTE 
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DC 
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-> PRCBLEM PARAMETERS 


014 
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• 


PATCH TASK NAME 


OLC 


PTOFEP 


DC 
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ENTRY PCINT NAME 
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PTQFPREF 
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PRTY REFERENCE NAME 
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PATCH FLAGS 
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PTOFCL 
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QUEUE LENGTH 
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PTQFPRTY 
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H« 0« 
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010 
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EC B 
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FREE LENGTH 
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FREE ADDRESS 
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ORIGINAL START TIME 
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PTQE 
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BYTE 
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ECU 
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DELETE THIS PTQE 




PTQFFREE 


EQU 


X»02* 






FREE PARM LIST 




PTQEINF 
* 


FOU 


X» C4* 






INFINITE PTIME FLAG 




** 

* 


PTQE 


FLAG 


BYTE 


2 FLAGS 






PTQE DPI) 


EQU 


X'Ol' 






CPATCF=U 




PTQFDPC 


EQU 


X«02« 






DPATCH=C 




PTQFOPW 


FQU 


X« 04» 






DPATCF=W 




PTQELNTH 


ECU 


*- PTQENEXT 


LENGTH OF PTQE 



) 
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Figure C-52. PWQE 



000 



000 
004 
008 



ooc 

010 
0 14 



015 
016 



PhQE 
*** 
* 
*♦* 

PKQETASK CC 
PWQEEP DC 
PWQEFCB DC 

* 

PWOELNTH DC 

PfcQEACCR DC 

PWOEPTN DC 

* 

* 

* 

* 

PWQEUNUS DC 
PWOEIO DC 



DSECT 



PWQE -CSECT USED TO DESCRIBE INPLT PARAMETERS TO PURGEwC 



A ( 0 I 
A<0 ) 
A 10 I 



A ( 0 I 
A(0 » 
X«0' 

SUPFPTNS 
SUPFPTNM 

X»0» 
H» 0» 



A ( TASK NAME) C« ZERO(SELF) 
A ( E NT PY PCINT NAME) 
A(ECB) TO BE POSTEC 
ZERO 

X» 8CO0OOOO' 
FREE= LENGTH 
FPE E= ACDR 
PAPTITICN FLAGS 
X«00» - PTN^CWN 
X»20» - PTN=SLAVE 
X'AO* * PTN=MASTER 
X»60« - P TN = F IND 
UNUSEO 
WQE ID 



- OPT=(FOST, 

- OPT=NOPCST 
-OPT=WAIT 
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Figure C-53. REPL/SUPL 



** 
* 

** 

** 
* 



PATCH 
REG 
REG 



INPUT PARAMETERS 



RE PATCH 
R EC 1 
REG 0 



ADCR 
AODR 

I NPUT 
ADDR 
TYPE 



OF SUPERVISOR PARAMETER LIST -SUPL 
OF PROBLEM PARAMETER LIST — PROBL 



PARAMETERS 
OF REPATCH 
INO ICAT ION 



PARAMETER LIST -REPL 



SUPERVISOR PARAMETER LIST / REPATCH PARAMETER LIST FCRMAT 



000 




D SEC T 






000 


REPL 


OS 


OF 




000 


SUPL 


OS 


OF 




000 


SUPTASK 


DC 


CL8» • 


TASK NAME 


008 


SUPFP 


OC 


CL8« • 


ENTRY POINT NAME 


010 


SUPPRTYN 


OC 


CL8« • 


PATCH GNLY - PPTY REFERENCE 


018 


SUPFLAG 


OC 


X«00» 


FLAG BYTE - SEE ECU'S BELOW 


019 


SUPOL 


DC 


X« 00» 


CUEUE LENGTH 


01A 


SLPPRTYV 


DC 


H» 0» 


P FT Y RELATIVE VALUE 


oic 


SUPECB 


DC 


A ( 0) 


ECS ACCRESS 


020 


SUPFREEL 


DC 


A(0> 


FREE LENGTH 


024 


SUPFREEA 


DC 


A<0) 


FREE ADDRESS 


028 


SUPTCRX 


CC 


A(0) 


TCRX 




SUPLLNTH 


EQU 


♦-SUPL 





NAME 



EXTENSICN TO SUFL TO FCRM REPATCH PARAMETER LIST 



02C 


RE PL PAPM 


DC 


A (0 ) 


030 


R FPL PROB 


DC 


XL8«0« 


C38 


RE PL AC 


DC 


A(0 » 




RF PLLNTH 


EOU 


♦-REPL 


03C 


REPLCHN 


CC 


A(0 ) 


C40 


RF PLXCVT 


nc 


AfO ) 




RE PLSl Z 
* 


EQU 


♦-PEPL 




* ECU'S 
* 


FCR 


FLAG BYT 1 




SUPFOEL 


FQU 


* X'Ol* 




SUPFDPTH 


EOU 


X»02 • 




SUPFIRST 


EOU 


X'OV 




SUPFRPTH 


EOU 


X»C8 • 




SUPFREEP 


EQU 


X« 10* 




SUPFPTNS 


FCU 


X«20' 




SUPFPTNM 


EQU 


X»40* 




SUPNFREF 
* 


EOU 


X« 80* 



THIS REPL 
BYTES LONG 



ACDR OF PROBL ASSCC WITH 
PROBL MOVED HERE IF LE 8 
ACCR CF REPL 

LENGTH OF REPL TO BE USED BY PROBLEM 
CHAIN WORD FOR SUPPLIEC REPL'S CNLY 
ACDR CF XCVT IN PTN WHERE REPL IS BUILT 
SIZE OF REPL FOR INTERNAL USE 

SUPFLAG 

EP DELETE OPTION 

CPOS=DPATCH 

CPCS-F IRST 

ECB REPATCH OPT ICN 

FREE=P 

PTN= SLAVE 

PTN=M ASTER 

DC NOT FREE P OR WORK AREA (PTIME) 



PROGRAMS 



Figure C-54. PROBL 



PROBLEM PARAMETER LIST FORMAT 



000 
000 
002 
003 
004 



* 

PROBL 
PPCBLNTH 

PPOBIC 
PROBPAPM 



CSECT 

DC 

DC 

CC 

CC 



H»4» LENGTH OF PROBL INCLUDING THIS WORD 

X f 0» RESERVED FOR TASK MGMT 

X»0» ID VALUE (MAX=255) 

F»0« P ARAM VALUES (VARIABLE NUMBER) 



( MIN=4) 
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Figure C-55 (1 Of 3). SCVT 



ooc 


VT 

* 


DSECT 










CUMMUNICATIONS 


VECTOR TABLE 




* 




THE SCVT 


IS POINTED TO BY THE XCVT (XCVTCVTS) 




A 

A 




THE SCVT 


CONTAINS SUBSYSTEM CONTROL INFORMATION 


000 


SCVTDDSfc. 


uc 


A( 0 ) 


DDS ADDRESS OF EXTENSICN LIST 


004 


SCVTXCVT 


DC 


A(0) 


POINTER BACK TO XCVT 


008 


SCVTLFLG 


DC 


X •GO • 


DATA BASE FLAGS 


009 




ORG 


SCVTLFLG 




oo e 


SCVTL0G1 


DC 


A( 0) • 


DATA BASE LOG FREQUENCIES 


ooc 


SC VTL0G2 


DC 


A(0) • 




010 


SCVTL0G3 


DC 


Ai 0) • 




014 


SC VTTMCT 


OC 


A { 0 ) • 


-> TASK MANAGEMENT CONTROL TABLE 


018 


SCVTTIME 


DC 


A(0) • 


-> TIME AND DATE IN DATA BASE 


01C 


SCVTTQET 


DC 


A(0) • 


-> TIME MANAGEMENT TABLE 


o^u 


SCVTFLG1 


DC 


X'O* 


FLAG BYTES 


021 


SC VTRSV 


DC 


AL3( 0 ) 


RESERVED 


02 A 


SCVTP1L0 


DC 


A( C ) 


LO ADDR OF FIRST OR ONLY (THIS) PARTITION 


028 


SCVTP1HI 


DC 


A ( 0 J 


HI ADDR OF FIRST OR ONLY (THIS) PARTITION 


C2C 


SCVTP2L0 


DC 


A( 0) 


LO ADDR OF OTHER (MASTER OR SLAVE) PARTITION 


030 


SCVTP2HI 


DC 


A(0) 


HI ADDR OF OTHER (MASTER OR SLAVE) PARTITION 


C3^ 


SCVTRWA 


DC 


A( 0) 


A(RECORDER DCB) 


03b 


SC VTFLST 


DC 


A( 0 ) 


PTR TO LAST USED PSCB 


03C 


SCVTDUMY 


DC 


3F *0* 


DUMMY PSCb 


C4b 




ORG 


SCVTDUMY 




C3C 


SCVTDFCT 


DC 


H , O t 


DUMMY FREE COUNT 


Q31 


SCVTOID 


DC 




PSCB ID 


040 


SCVTDFLG 


DC 


X»0« 


PSCfaFLAG 


04 L 




ORG 


SCVTDFLG 




04G 


SCVTDNXT 


DC 


AIG) 


POINTER TO NEXT PSCB 


044 


SCVTCPRV 


DC 


A(0) 


POINTER TO PREVIOUS PSCB 


G4e 


SCVTGWLO 


DC 


A(0) 


LO ADDRESS OF GETWA CORE 


04c 


SCVTGWHI 


DC 


A(0) 


HI ADDRESS OF GETWA CORE 


050 


SCVTTlbR 


DC 


A(0) . 


ADDRESS GF TYPE 1 SVC BRANCH TABLE 


05 A 


SCVTT2BR 


DC 


A(0) . 


ADDRESS OF TYPE 2 SVC BRANCH TABLE 


058 


SCVTHWA 


DC 


A(0) • 


ADDRESS OF MSG HANDLER OCB 


05C 


SCVTALOC 


DC 


A(0) 


DB A( PRIMARY ARRAY LOCATOR TABLE) 


C60 


SCVTAPBT 


DC 


A(C) 


DB A (PAGE POUNDARY TABLE) 


064 


SCVTDSTR 


DC 


A(0) 


Db A(VS RESIDENT DATA BASE-START) 


066 


SCVTDfc NO 


DC 


A(0) 


A(VS RESIDENT DATA BASE-END) 


06C 


SC VTLKCB 


DC 


A(0) 


LOCK CONTROL BLOCK CHAIN 


070 


SCVTALCB 


DC 


A(0) 


A (DE FLOCK —LOCK CONTROL BLOCK ) 


074 


SCVTtSRX 


DS 


A CHAIN OF MODULES REOUF STING STAE USER EXIT ROUTIN 


078 


SCVTSBOO 


DC 


A(0) 


A(GETARRAY) 


07C 


SCVTSB01 


DC 


A(0) 


A (PUT ARRAY) 


oeo 


SCVTSB02 


DC 


A(0) 


A (GETITEM) 


GL4 


SCV1SB03 


DC 


A(0) 


A ( PUTITEM ) 


088 


SCVTSB04 


DC 


AtO) 


A (GETBLOCK ) 


08C 


SCVTSB05 


DC 


AfO) 


A(PUTBLOCK) 


090 


SCVT SB 06 


DC 


AIO) 


A ( MESSAGE HANDLER) 


094 


SCVTSBQ7 


DC 


A(Q) 


AIDE FLOCK ) 


098 


SCVTSB08 


DC 


A(0) 


A (LOCK) 


09C 


SCVTSB09 


DC 


AfO) 


A (RECORD) 


OAG 


SCVTSB10 


DC 


A(0) 


DDSOPEN ENTRY POINT 


0A4 


SCVTSB11 


DC 


A(0) 


DDSCLOSE ENTRY POINT 
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Figure C-55 (3 Of 3). SCVT 



SCVTTTCB 


tOU 


SCVTSB2 I 


TIKE TCP ADDRESS tDPPCTIMfc) 


SCVTST Afc 


EQU 


SCVTSB23 


A ( DPPTSTAE ) 


PRF#166 


SCVTDCHN 


EQU 


SCVTSB24 


CHANIN OF DMP/NDMP MODULES PRF#166 


LCVTGWBS 


EQU 


SCVTSB25 


A(DPPTGWFW) 




scv tspwq 


EQU 


SCVTSB26 


AIPURGEWO) 




SCVTTWA 


EQU 


SCVTSB27 


A ( DPPTRGWA J - 


TRANSWA ROUTINE 


SCVTOTCB 


ECU 


SCVTSB29 


AC OTHER PTN»S 


JS TCB) 


SCVTLNTH 


EQU 


*-SCVT 


LENGTH OF TABLE 




* 




SCVTFLG1 


DEFINITIONS 






NUT F 


7ht SCVTFLGl AND THL XCVT?PFC MUST 


PF THL SAME 


I V T E 2 P 1 


EQU 


X'tC • 


TWO PARTITION OPFRAT ION 


FLAG 


SCV7FMPT 


EQU 


X»4C» 


MASTER PARTITION FLAG 




SCVTFSPT 


EOU 


X«20» 


SLAVE PARTITION FLAG 





* SCVTLFLG DEFINITIONS 

SCVTRINT EQU X»80* DATA BASE REINITIALIZE (REFRESH) FLAG 

SCVTRDOP EQU X»40» DA DATA BASE READ ONL Y-TEMPOftARILY 

i>C VTRDOT EQU X»2G» DA DATA BASE READ ONLY— PERMANENT 



HE OSbCT NAMED • SCVT 



• IS STOWED. CC=08 



Figure C-56. STAEBLK 





♦ ♦ * 










* 


ST AF PlK 


* 




* 




OSF.fT USED TO DESCRIBE TFE DUMF/NO DUMP (ONTFOL * 




* 




BLOCKS. F AO PL DC K IS PUILT IN RESPCN'SE TO 


A ' S T A E ' * 




* 




IMP COMMAND AND IS USED TO DESCRIBE TFF CPTIDNS IN * 




* 




F F F EC T FOR A SPECIFIED LCAO MCOULF 


* 




* » * 






*** 




STAFRIK 


DSF CT 






0 00 




OS 


OD 




0 Vs 


STAFNFXT 


nc 


A(0) A (NEXT STAEBLK) OR ZERO 


004 


ST AFA«ND 


DC 


X'O' STAE/ABEND CPTICN FLAGS 


0 0 "5 


S T AF MAXD 


DC 


X'O* MAX.NC.CF DUMPS TD PE 


TAKEN 


ox. 


STAECFNO 


nc 


X'O' NO. OF CUMPS TAKEN 




0 ) 7 


ST AF t NAM 


DC 


X'O' LENGTF CF L M N AM F 




008 


STAFNAME 


CC 


Cl.8* MODULE NAME 




C! 0 


STAFFNC 


ns 


OD 






STAFLNTH 


ECU 


STAFENO-STAERLK 






** * 






*** 






STAEAPND - FLAC DESCRIPTICN 


* 




** * 






*** 




STAFOUMP 


FGU 


X'SO' A DUMP IS REQUESTED 










CORRESPONDS TO TCBCPEQ (TCPCUMP) FLAGS IN 


TCBCMP FIELD 




STAFSTEP 


ECU 


X'^C A STEP ABEND HAS BEEN 


RECUESTEC 



CORRESPONDS TO TCBCSTEP (TCBSTEP) FLAGS IN TCBCMP FIELD 



Figure C-56.1. STAEXBK 



000 


STAEXBK 


DSECT 






000 


STABKNXT 


DC 


A(0> 


ADDRESS OF NEXT BLOCK OR ZERO 


004 


STABKLEN 


DC 


H»Q» 


SIZE OF THIS BLOCK 


006 


STABKCT 


DC 


H»0» 


COUNT OFL M NAMES IN THIS BLOCK 


008 


STABKEPN 


DC 


CL8» • 


ENTRY POINT NAME OF EXIT ROUTINE 


CIO 


STABKEPA 


DC 


AtO) 


ADDRESS OF ROUTINE 


014 


STABKLMN 

* 

* 


DC 


CL8« • 


NAMES OF LOAD MODULES FOR WHICH THIS 
EXIT ROUTINE IS TO BE PASSED CONTROL 
IF THEY ABEND 




STAFJKMS2 


EQU 


1024 


MAXIMUM SIZE OF ATAEXBK 
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Figure C-57. TCBX 



GOO TCt.X 



USfcCT 



** TCBX = TCb EXTENSION - ADUkbi.StL, bY Tf.BUSER FTELD OF- TCB 

* - THE. TCBX IS POINTED TC BY THE TCB tTCBUSER) 

* - THE TCBX CONTAINS TASK RELATED INFORMATION 



000 TCBXNEXT DC 
004 TCbXNAME DC 
OOC TCBXLCB DC 
010 TCBXWQ DC 
014 TCBXCWG DC 
018 TCBXLWQ DC 
01C TCBXTGWA DS 
024 ORG 
01C TLbXTFWD DC 
020 TCBXTBKW DC 
024 TCBXQGWA DS 
02C ORG 
024 TCBXQFWD DC 
028 TC6XQBKW DC 
02C TCbXDCVT DC 
030 TCBXRS7B DC 
034 TCBXPARM DC 
038 ORG 
034 TCBXSMON DC 
038 TCfaXTCb DC 
03C TCBXfcCB DC 
040 TCbXLECb DC 
044 TCBXFLG1 DC 
04J> 7CBXFLG2 DC 

046 TCbXLQL DC 

047 TCbXCOL DC 

048 TCbXHWOL DC 
Q<,<* TCBXFLG3 DC 
04A TCbXPRTY DC 
t4C TCbXCUWU DC 
Gt>* TCBXPECB LC 

TCtXLNTH EOU 



AtO) . 
CL8» • . 
A(0) . 
A(0) . 
A(0) . 
Aid . 
2F 

TCBXTGWA 

A(0) 

A(Oi 

2F 

TC&XQGWA 
AtO) 
A(U) 
A(0) . 
A(C) . 
AtO) 

TCBXPARM 
A(U) 
A(0) 
AtO) 
AtO) 
X»0» 
X'O* 
X»&» 
X'O* 
X'C 
X'O' 
h»0« 
AtO) 
AtC ) 
*-1CBX 



FLAG 1 DEFINITIONS 



TCBXIDOk bQU 
TCBX1CHP bOU 
TCBX1TCB tOU 
TCBXILCB EQL 
TCbXITRM ECU 
TCbXIACT EOU 



X* 04 • 
X'08» 
X'lO' 

X'tl/' 
X' 80 • 



FLAG 2 DEFINITIONS 



TCBX2DP1 EOU 

TCBX2DPU EQU 

TCbX2DPW EOU 

TCbX20PC tOU 

TCBX2DP EOU 



XH 1 • 
X»02« 
X«C4» 

x«oe • 



POINTER TO NEXT TCBX ON THIS CHAIN 

TASK NAME IF INDEPENDENT - BLANKS OTHERWISE 

LCb CHAIN ORIGIN 

WQ CHAIN ORIGIN 

CURRENT WOE IN PROCESS t ALREADY DECHAINED ) 
DPATCh WO CHAIN 

TASK t AT ) GETWA CHAIN ORIGIN (DUMMY GFBE ) 

DUMMY GFBfc FORWARD POINTER 
DUMMY bFBt BACKWARD POINTER 
WO UP) GETWA CHAIN ORIGIN (DUMMY GFBL) 

DUMMY GFBE FORWARD POINTER 

DUMMY GFBt BACKWARD POINTER 
POINTER TO DPPXCVT 
POINTER TG RESOURCE TABLE 
POINTER TO PROBLEM PARAMETERS 

CHAIN WORD FOR TMCTSMON CHAIN 
POINTER TO TCB 

ECb DPPTPMON WAITS ON FOR POST BY DPPTPSVC 

ECB DPPTPMON WAITS ON FOR POST BY DPPTSMON 

F LAC BYTE 1 

FLAG bYTfc 2 

LIMIT CUEUE LENGTH 

CURRENT OUEUE LENGTH 

HIGH WAUR QUEUE LENGTH 

FLAG BYTE 3 QUEUE HOLDE R /PROCL SSCJR FLAGS 

PRIORITY 

CLEAN-UP WC 

ECB DPPTPMUN WAITS ON FOR POST BY DPPTDLMP 
LENGTH Ub TCBX 

TASK DORMANT, WO IS EMPTY 

NEW TCBX KEOUIP-FS CHAP 

TCB NEEDED - USED BY DPPTSMON 

KENT EP ADDRESS NEEDED - USED BY DPPTSMON 

TASK TERMINATION REOUIRED 

CUkRbNT WO ACTIVE 

DPATCH - IMMEDIATE 

DPATCH - UNCONDITIONAL 

DPATCH - WHENEVER (NEXT TIME TASK IS DORMANT) 

DPATCH - CONDITIONAL (IF TASK IS DORMANT NOW) 



TCBX2DPI*TCbX2DPU+TCbX2DPC*TCBX?DPW 



* FLAG 3 DEFINITIONS 



TCBX3QH 
TCBX30P 
TCBX3SE0 
TCBX3SEL 

TCbX3hLD 
TCBXoNOP 



EOU 
EOU 

EOU 
ECU 



X»80» 
X'40» 

X^O* 
X'lO' 



THIS IS A CUFUE HOLDFR 
THIS IS A QUEUE PROCESSOR 
OHOLDLK IS DEFINED SEQUENTIAL 
QHOLDLk IS SEQUENTIAL AND SELECTED 



EOU X«08* QH OR UiP IS HELD ,D0 NOT START NEW WORK 

tQU X«G4» OH - DU NOT ACCEPT PATCHFS 

QUEUE HOLDER/QUEUE PROCESSOR EXPANSION TO TCB EXTENSION. 

PRESENT ONLY IF FLAG 3 BIT TCBX3QH OR TCBX3QP IS ON 



054 

Qbn TCBXQCT 

Gi>6 1CBX(,UCT 



ORG 
DC 

DC 



TCBXPECB+4 
H»0» 
h'0» 



056 TCBXQCUR LC 



05C 



TCBXOMAX 



DC 
EOU 



060 TCBXQA&R DC 
* 



NUMbbR OF ENTRIES IN ADDRESS TABLE 
USl LUUNT. NUMPFR OF WC*S PROCESSFD BY QUEUE 
NUMbLK Ub WQ»S R CMOVFD FROM QH 
F»0» IF Qh, ADDR OF LAST QP TO TAKE WORK 

IF QP, ADDR OF OH WORK WAS TAKEN FROM LAS 
F»0« RESERVED 

21 MAXIMUM NO. OF CONNECTED BLOCKS (QP-QH XREF 

AtO) UP TO 21 ADDRESSES OF CONNECTED BLOCKS. 

IF QH, ADDR OF QP»S THAT CAN TAKE WORK 

IF QP, AUDR OF OH'S FROM WHICH WORK CAN BE 

TAKEN 
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Figure C-58. TIMED 



000 


TIMED 
*** 


DSECT 






* 


T IMF 


ARRAY 




*** 






000 


T I ME H S 


DC 


F • 0 • 


004 


TIMETOC 


DC 


F • 0 ' 


008 


11 ME JCAY 


OC 


F • 0 ■ 


ooc 


T I ME MC AY 


OC 


F • Q« 


010 


TIMEEBC 


cc 


CLIO' 


01A 


T IMEBCAY 


DC 


H« 0» 


QIC 


TIMEECB 


DC 


F * 0 ' 


020 


T IMECFAC 


DC 


D'O* 


028 


T IMERCLK 


OC 


CO' 


030 


T I ME LOCK 


DC 


A(0l 


034 


T I ME INT L 


DC 


F • 0 ' 


038 


TIMEECB2 


DC 


F • O 1 


03C 


TIMEPRTY 


DC 


H«0" 


03E 


T IMEFRFQ 


DC 


X»0» 


0 3F 


T IMEFUPO 


DC 


X»0» 


040 


T IMEENC 
TIME LNGH 


CS 
ECU 





DSECT 



TOC IN 10 MIL UNITS 

TCD IN DECIMAL 10 MIL UN I T S-HHMMSS T H 

JULIAN CATE-CCYYDCCC 

CAY OF MONTH C ATE-QMMOC YYC 

EPCCIC CATE- DO/MMM/YY 

DAY CF YEAR - BINARY 

PTIME EC B 

CCNVERSICN FACTOR 

AREA TC STORE CLCCK 

A ( T IME LOCK BLOCK) 

SYSGEN FTIME INTERVAL 

DELETE ECR 

PTIME DISPATChING PRIORITY 
TI^E FAILCVER FREG 
TIME FAILOVEW UPDATE 
00 

T IMEENC-TIMED 
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Figure C 59. TMCT 



000 



TMCT 

** TMCT 

* 

* 

* 



** 
* 



DSECT 

= Y AS K MANAGEMENT CONTROL TABLE - POINTED TO BY THE SCW 

- THE TMCT IS PCINTED TC BY THE SCVT (SCVTTMCT) 

- THE TMCT CONTAINS TASK MANAGEMENT INFORMATION 



CHAIN ORIGIN FOR INDEPENDENT TCBX'S 
CHAIN ORIGIN FOR DEPENDENT TCBX'S 
CHAIN ORIGIN FOR FREE TCBX'S 

CHAIN ORIGIN OF TCBX'S REQUIRING SMCN SERVICES 

(CHAINEC BY TCBXSMCN WORD) 
ECB DPPTSMON WAITS CN FC« POST BY PMCN CR SVC 
CURRENT NUMBER CF ACTIVE TCBX'S 
CURRENT NUMBER CF FREE TCBX'S 
NUMBER OF TCBX'S GOTTEN AT IN I T TIME 
HIWATFR NUMBER OF TCBX'S IN SYSTEM 
FLAG BITS 
RESERVED 

HIGHEST POSSIBLE LIMIT PRIY FOR ANY DPPTFMON 

DIFFERENCE BETWEEN DPPTSMCN'S LM P AND T*CTLMP 

CHAIN ORIGIN FOR TMCT-LCB CHAIN 

ADDRESS OF CPPXCVT 

POINTER TC TIME CCNTRCL BLOCK 

EXCLUSIVE (PC) GETWA CHAIN CRIGIN (DUMMY G F BE ) 

DUMMY GFBE FORWARD PC INTER 

DUMMY GFBE BACKWARD PCINTER 

ACCRESS OF ETXR USED V» I T H ATTACH OF FMCN 

ACORFSS OF FIRST CETWA/FREEWA MAIN BLOCK 

NUMBER OF GETWA SIZES 

ACCRFSS OF FIRST GFCB CN CHAIN 

CHAIN ORIGIN FOR REPATCH LIST'S 

ECB DPPTCLMP WAITS CN F CR PCST BY DPPTSMON 

LENGTH OF TMCT - SUBSYSTEM AND GET WA TABLES 

REQUEST FOR LCB-CELETE PROCESSING BY CPPTSMON 
INDICATES ONE TMCT-LCB HAD LCBFLMP ♦ LCBFDEL 



BLOCK - CNE FOR EACH POSSIBLE GETWA SIZE 

- WILL BE APPENCED CN END OF TMCT 

- CHAIN PCINTFC TO BY TMCT (TMCTGFMB) 



uuu 


iNL T ft I NU 


DC 


MO) 


• 


AAA 

004 


TMC I AD fP 


DC 


A(0) 


• 


a a q 


ruf Trnrr 


DC 


A(0) 


• 




t t c u nm 

I ™L I SI UN 


DC 


A(0) 




A 1 A 


Tur t c c f a 


DC 


MO) 


• 


U LH 


l^CI * AC T 


DC 


H' 0' 


• 


UlO 


Tur Tjirnr 

1 1 f rKfc 


a r 
DC 


F'O' 


• 


u Lo 


TM CT#TCB 


DC 


H' 0' 




A 1 A 

U L A 


TMCT#HIX 


DC 


H'O' 




Air 1 


TMCTFLGl 


DC 


X' 0' 


• 


0 ID 


TMCTRSV1 


DC 


X' 0' 


• 


OlE 


TMCTLMP 


DC 


H' 0' 


• 




TMCTLMPD 


EQU 


3 . 




020 


TMCTLCRA 


nc 


A(0) 


• 


024 


TMCTCCVT 


DC 


A( 0) 




028 


TMCTTMCB 


DC 


A ( 0 ) 




02C 


TMCTEXGW 


OS 


2F 




03* 




OPG 


TMCTEXGW 


02C 


TMCTEFWD 


DC 


A( 0) 




030 


TMCTEBKW 


DC 


A<C ) 




034 


TMfTFTXP 


DC 


A(0) 


• 


038 


TMCTCFMR 


DC 


A(0) 




03C 




ORG 


*-4 




038 


TMCT#GSZ 


DC 


X* 00' 




039 




ORG 


♦♦3 




03C 


TMCTCFCB 


CC 


A(0 » 




040 


TMCTREPL 


DC 


A(0) 




044 


TMCT P ECB 


DC 


A<0 ) 


• 




TMCTLNTH 


FOU 


♦-TMCT 




* TMCTFLGl DEFINITIONS 




TMCTLCPD 


EOU 


X' 80* 






TMCTFLMP 


ECU 


X' 40' 




000 


GFMB 


DSECT 







GET WA/FR6EWA MAIN 



000 
002 
004 
008 
009 
008 



GFMBFCNT 
GFMB#BLK 
GFMRSIZE 
GFMBIC 



DC 
DC 
DC 
DC 
CRG 
GFMBGFCB DC 
GFMBLNTH EQU 



CURRENT NUMBER CF 
INITIAL NUMBER OF 
SIZE OF BLOCKS IN 



H«0' 
H'O ■ 
F'O' 

X'OO' 
GFMB ID 

A| CI ADDRESS CF GFCB FOR THIS SIZE 
♦-GFMB LENGTH OF GFMB 



FREE BLCCKS 
BLOCKS ALLOCATED 
THIS FOOL 



10 FIELD TO ASSOCIATE GFBE ' S TC A GFMB 



BLOCK 
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Figure C-60. WQE 



000 


WOE 
* 


DSECT 








** W CE = 
* 


WORK 


CUEUE ELEMENT - CHAINED TO TCBX 


000 


NCNEXT 


cc 


A(0 ) • 


POINTER TO NEXT WOE IN CHAIN 


004 


WQLC B 


DC 


A (0 ) . 


POINTER TO LCB FCR ENTRY POINT 


008 


WOTCBX 


DC 


A( 0) . 


FCINTER TO TCBX WHERE WO IS CHAINED TO 


ooc 


WOFLAGS 


DC 


X'O 8 • 


FLAG BITS 


000 


WCFPATCH 


DC 


X'O' 


FLAGS FROM PATCH PARAMETER LIST 


00E 


WQFRESV 


DC 


X* 00' 


RESERVED 


OOF 


wcic 


DC 


X'OO' 


PRCBLEM PARAMETER IC VALUE 


010 


WQECBAD 


DC 


A(OI 


ADORESS OF ECB SPECIFIED IN ECB= OPERAND 


014 


WCPTCB 


DC 


MO) . 


PATCHING TASK'S TCB ACDRESS 


018 


WQFREELN 


DC 


A<0) • 


FREEMA IN= OPERAND LENGTH 


01C 


WOFREEAD 


DC 


A(0) . 


FREEMAIN= OPERANC ADORESS 


020 


WOECBCOD 


CC 


A(0) • 


CCMPLETICN TO POST USER'S ECB WITH 


024 


WCPARAM 


DC 


A<0) ... 


PCINTER TO PROBLEM PARAMETERS 


028 




ORG 


WQPARAM 




024 


WOPROeL 


CC 


XL8'0' 


PPOeL WILL BE MCVEO INTO WOE IF LE 8 BYTES 


02C 




ORG 


WQPRCBL 




024 


WCPRCBLN 


DC 


H'0» 


LENGTH OF PPCBL INCLUDING THIS WCRO (MIN»4) 


026 




DC 


X'O' 


RESERVED FOR TASK MGMT USE 


C27 


WOPRCBID 


DC 


x»o' 


IC-VALUE <MAX=255) 


028 


WOPROBPA 


DC 


F'O' 


PARAMETER VALUE 




WQL NTH 


EOU 


♦-WQE 


LENGTH OF WQE 




WO 


EOU 


WOE 






* WOFLAGS ECU'S 






WQFLFPEP 


EOU 


X'Ol' 


FREE=P WAS SPECIFIED 




WQFLPARM 


EOU 


X'04' 


PPOBL PAR ML 1ST MOVED INTO WOE 




WOFLABND 


EQU 


X'08' 


ABEND OCCURRED WHILE PROCESSING THIS WQE 
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Figure C-61. XCVT 

000 XCVT DSECT 
* 

** DPPXCVT = COMMUNICATIONS VECTOR TABLE 





* 


- 


THE XCVT 


IS POINTED TC FY EACH TCBX ITCBXDCVT) 




* 
* 


- 


THF XCVT 


CONTAINS CCNTPGL I NFORMAT ICN FOR SPTOS 


000 


XC VTRES V 


DC 


AlO) . 


RESERVED WORD - ^LST BE ZERO 


004 


XCVTSVCl 


DC 


A( C) . 


TYPE 1 SVC INSTRUCTION 


008 


XC VTSVC2 


DC 


A( C) . 


TYPE 2 SVC INSTRUCTION 


OOC 


XCVTSVC4 


DC 


A{ 0 ) . 


TYPE 4 SVC INSTRUCTION 


010 


XCVTPOS Z 


CC 


At 0 ) 


PAGF SIZE 


014 


XC VTSROT 


DC 


CL8» ' 


CAT E CF LAST SYSTEM BUILD 


OiC 


XCVTSROP 


OC 


A(0) 


Hl-ORDFR BYTE = SYSTEM BUILD CPTICN FLAGS 




* 






3 LC-ORDER BYTES = RESERVED - FA ILOVER/RESTART 


020 


XCVT2PFG 


OS 


X 


2 PARTITION FLAGS 


021 




ORG 


XCVT2PFG 




020 


XCVTCVTS 


DC 


AlO ) 


-> CPPXCVTS CVT 


024 


XC VTSSVl 


DC 


A( 0 ) . 


SUBSYSTEM VECTOR TABLE POINTERS 


028 


XCVTSSV2 


DC 


AlO) 


DISPLAY MGMT CVT POINTER 


02C 


XC VTSS V3 


CC 


AlO) 


ENERGY MGMT CVT POINTER 


C30 


XCVTSSV4 


DC 


AlO ) 


DATA ACQ CVT POINTER 


C34 


XC VTSSV5 


DC 


AlO) . 




038 


XC VTSSV6 


DC 


AlO) . 




03C 


XCVT2PTX 


DC 


A{ 0) 


ADDP OF THE OTHER PAR TN XCVT - TWO PAPTN CPERN 


04 0 


XCVTPFRF 


OC 


A(0 ) 


ADDRESS OF THE PAGE FREE (UNFIX) ROUTINE 




XC. VTDPf^ 


EOU 


XCVTSSV4 






XCVTECVT 


EQU 


XCVTSSV3 






XCVTCCVT 


ECU 


XCVTSSV2 






* 




SYSTEM BUILC OPTION FLAGS 




XCVTFOCS 


EQU 


X* Oi» 


DUPLICATE CATA SET SUPPORT FLAG 




XCVTFF AL 


ECU 


X«02 • 


FAILCVER RESTART FLAG 




XCVTFEXT 


FOU 


X»04« 


EXTERNAL INTER R LPT HANDLER FLAG 




XCVT INT F 


EQU 


X • 08« 


END OF INITIALIZATION FLAG 




XC VTPRS 


EQU 


X • 10* 


PPE-R EST ART FLAG 




XCVTIPL 


EQU 


X«20' 


INITIAL IPL FLAG 




XCVTCPU 


FQU 


X»40* 


SA*E CPU AS I PL FLAG 




XC VTPROB 


EQU 


X* 80« 


PRF-PRCBE FLAG 




* 




XCVT2PFG 


DEFINITIONS 




* 


NOTE 


THE XCVT2PFG AND THE SCVTFLGi MLST BE THE SAME 




XC VTF2PT 


EQU 


X»80* 


TWO PARTITION OPERATION FLAG 




XCVTFMPT 


EQU 


X»40» 


MASTER PARTITION 




XCVTFSPT 


ECU 


X f 20 t 


SLAVE PARTITION 




XCVTRSNC 


EQU 


X« 10» 


SLAVE F TN HAS BEEN RE- SYNC ' ED 




XC VT t NT H 


FQU 


♦-XCVT 


LENGTH OF TABLE 



) 
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Appendix D. INTERNAL MACROS 



This section contains a list of internal macros and their calling se- 
quences. These macros are restricted to use by the Special Real Time 
Operating System. 
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CBFREE 



The CBFREE macro releases control of a work area in protected storage. This 
area must have been previously obtained by executing a CBGET macro call. 



Symbol 



Where 



CBFREE 



( (r) 
jad 

DCVTP = (r) 



ADDR^ | address 



| (D j 
,DCVTLOC = UddressJ 



'r' is a general-purpose register, 2-12 
i ii ■ » 



ADDR= 

Indicates the address of the protected storage area to be freed. If 
'r' is specified, the register contains the address of the work area 
as returns to the caller after a CBGET macro execution. If an address 
is specified, it is the label of a fullword that contains the ad- 
dress of the work area as returned to the caller after a CBGET macro 
execution. 

DCVTR=r 

Where 'r' is the general-purpose register (2-12) that contains the 
address of the XCVT. 



DCVTLOC=r 

Where 'r' is the general-purpose register (2-12) enclosed in parenthe- 
ses having the address of a 4-byte core location that contains the 
address of the XCVT. 



DCVTLOC=address 

Where 'address' is the label of a 4-byte core location that contains 
the address of the XCVT. 
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CBGET 



The CBGET macro is used to obtain a protected storage area to be used as a 
work area by the Special Real Time Operating Systems routines. The address 
of the storage area is returned in register 1. 



Symbol 



Where 



CBGET 



(r) I 
length I 



DCVTR=(r) 



| (r) i 
I address J 



,DCVTLOC* I address 



' r' is a general-purpose register, 2-12 



length= 

is the length of the requested work area that can be specified in any 
RX-type format or in a general-purpose register. 

DCVTR=r 

Where 'r' is the general-purpose. register (2-12) that contains the 
address of the XCVT. 

DCVTLOC=(r) 

Where ' r' is the general-purpose register (2-12) enclosed in parenthe- 
ses having the address of a 4-byte core location that contains the 
address of the XCVT. 



DCVTLOC=address 

Where 'address' is the label of a 4-byte core location that contains 
the address of the XCVT. 
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DPPFIX 



The DPPFIX macro provides the facility for fixing pages in a virtual stor- 
age environment. 



Symbol 



Where 



DPPFIX 



(r) i 

HGIIADDR=\ address J 



4 



(r) l 

LOWADDR=\ address J 



,DCVTR=( r ) 

f (r) 
,DVTL0O\ address. 



'r' is a general-purpose register, 2-12 
I 



HGHADDR= 

is the address of the upper boundary of a virtual storage area that 
is to be page fixed. This address will be rounded up to the next 
page boundary, if required. If 1 r f is specified, the register con- 
tains the upper boundary address. If an address is specified, it is 
a label of a fullword that contains the address of the upper boundary 



LOWADDR= 

is the address of the lower boundary of a virtual storage area that 
is to be page fixed. This address will be rounded down to the previous 
page boundary, if required. If 'r' is specified the register con- 
tains the lower boundary address. If an address is specified, it is 
a label of a fullword that contains the address of the lower boundary. 

DCVTR=r 

Where 'r' is the general-purpose register (2-12) that contains the 
address of the XCVT. 

DCVTLOC=(r) 

Where ' r' is the general-purpose register (2-12) enclosed in parenthe- 
ses having the address of a 4-byte core location that contains the 
address of the XCVT. 

DCVTLOC=address 

Where 'address 1 is the label of a 4-byte core location that contains 
the address of the XCVT. 
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DPPFREE 



The DPPFREE macro provides the facility for freeing pages in a virtual 
storage environment that have been page fixed as the result of a DPPFIX 
macro call. 



Symbol 



Where 



DPPFREE 



| (r) 
HGHADDR- address 



LOWADDR- 



(r) 
address 



,DCVTR- (r) 

( (r) 
,DVTLOC» address 



'r' is a general-purpose register, 2-12 
I 



HGHADDR= 

is the address of the upper boundary of a virtual storage area that 
is to be page freed. This address will be rounded up to the next 
page boundary, if required. If 'r' is specified, the register con- 
tains the upper boundary address. If an address is specified, it is 
a label of a fullword that contains the address of the upper boundary. 



LOWADDR* 

is the address of the lower boundary of a virtual storage area that 
is to be page freed. This address will be rounded down to the previ- 
ous page boundary, if required. If f r' is specified, the register con- 
tains the lower boundary address. If an 'address' is specified, it is 
a- label of a fullword that contains the address of the lower boundary. 

DCVTR=r 

Where 'r' is the general-purpose register (2-12) that contains the 
address of the XCVT. 



DCVTL0C=(5) 

Where 'r' is the general-purpose register (2-12) enclosed in parenthe- 
ses having the address of a 4-byte core location that contains the 
address of the XCVT. 

DCVTLOC=address 

Where 'address' is the label of a 4-byte core location that contains 
the address of the XCVT. 
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SETPSW 



The SETPSW macro provides the Special Real Time Operating System with the 
capability of changing the current program status word (PSW) to alter the 
storage protect key, mode, and/or system mask. On return, register zero 
will contain a parameter that will enable the user to restore the PSW the 
previous status (i.e., status immediately prior to th e execution of the 
SETPSW macro) 



Symbol 



SETPSW 



Where 'r 



KEY- I 0 
|TCB 



,STATE-| p |J 





• int -|eI_ 







REG-(r) 
,DCVTR«=(r) 

address 

is a general-purpose register, 2-12 



,DCVTLOC« 



(r) 



KEY= 



is used to set the storage key in the PSW. '0' provides the user with 
the supervisor storage key and 'TCB 1 sets the protect key to the task 
protect key. 



STATE= 

is used to set the mode in the PSW. 'S' puts the CPU in a supervisor 
mode and 'PP' puts the CPU in a problem program mode. 

INT= 

is used to set the system mask in the PSW. f D' disables all I/O and 
external interrupts. 'E' enables all I/O and external interrupts. 

REG= 

is used to restore the PSW to the previous status. The register 
specified must contain the parameter that is returned in register 
zero as the result of a previous SETPSW macro call. The 1 REG= ' 
parameter and either the ' KEY= ' , ' STATE=' , or 'INT=' parameters are 
mutually exclusive. 

DCVTR=r 

Where 'r' is the general-purpose register (2-12) that contains the 
address of the XCVT. 

DCVTL0C=(r) 

Where 'r' is the general-purpose register (2-12) enclosed in parenthe- 
ses having the address of a 4-byte core location that contains the 
address of the XCVT. 
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DCVTLOC=address 

Where 'address' is the label of a 4-byte core location that contains 
the address of the XCVT. 
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WTFAILDS 



The WTFAILDS macro writes the failover/restart data set. 













Symbol WTFAILDS 




,DCVTR=(r) 








- 




► 








,DCVTL0O (address) 






Where 'r ! is a general-purpose register, 2-12 



DCVTR=r 

Where 'r' is the general-purpose register (2-12) that contains the 
address of the XCVT. 

DCVTLOC=(r) 

Where 'r f is the general-purpose register (2-12) enclosed in parenthe- 
ses having the address of a 4-byte core location that contains the 
address of the XCVT. 

DCVTLOC=address 

Where 'address' is the label of a 4-byte core location that contains 
the address of the XCVT. 
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